# New Ticket Created by Zoffix Znet
# Please include the string: [perl #131755]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=131755 >
The original failure was in t/spec/S32-io/open.t test that I golfed down to the
following:
-----------------------8<---------------------------------
$*IN = IO::Handle.new: :path('-'.IO);
$*IN.open;
$*OUT.open: :w;
my $w = '-'.IO.open: :w;
my $r = '-'.IO.open;
$*IN.slurp(:close); #
$w.put: 'meow w';
$*OUT.put: 'x';
-----------------------8<---------------------------------
Save that code to file named open.t and then run it like this:
$ echo "x" | ./perl6 --ll-exception open.t
And it'll die with 'Reading from filehandle failed: Bad file descriptor'
This is on Rakudo version 2017.06-252-g83502cc built on MoarVM version
2017.06-91-g146c8fc.
Most notably, removing `--ll-exception` parameter or even removing the `#`
comment on line 6 causes the bug to disappear.
