[perl #112130] $fh.lines fails miserably when the file has no trailing newline

[via RT]

# New Ticket Created by  Moritz Lenz 
# Please include the string:  [perl #112130]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=112130 >


$ echo -n foo > test
$ perl6 -e 'my $f = open("test"); say $f.slurp'
foo
$ perl6 -e 'my $f = open("test"); .say for $f.lines'
Unable to open filehandle from path 'test'
  in method open at src/gen/CORE.setting:6268
  in method get at src/gen/CORE.setting:6288
  in code <anon> at src/gen/CORE.setting:6313
  in sub coro at src/gen/CORE.setting:4797
  in method reify at src/gen/CORE.setting:4778
  in method reify at src/gen/CORE.setting:4549
  in method reify at src/gen/CORE.setting:4549
  in method gimme at src/gen/CORE.setting:4937
  in method reify at src/gen/CORE.setting:4628
  in method reify at src/gen/CORE.setting:4549
  in method reify at src/gen/CORE.setting:4549
  in method gimme at src/gen/CORE.setting:4937
  in method eager at src/gen/CORE.setting:4912
  in method eager at src/gen/CORE.setting:1024
  in sub eager at src/gen/CORE.setting:5200
  in block <anon> at -e:1

$

< moritz> I guess it doesn't really fail to open the file, but it fails
 at error reporting
< moritz> if you look closely at the backtrace, you see that method
'get' calls method 'open'
< moritz> so it tries to re-open the file (?) and fails. It's not the
first open() that fails