On Fri, 17 Feb 2017 12:41:12 -0800, david.warring wrote:
> On Thu, 16 Feb 2017 19:44:47 -0800, [email protected] wrote:
> > note (Nil andthen "foo" orelse Nil orelse "bar");
> > -> ;; $_ is raw { #`(Block|140635964425160) ... }
> >
> > see the previously fixed:
> > https://rt.perl.org/Public/Bug/Display.html?id=130034
>
>
> 09:38] <dwarring> r: my $r := do 42 with Nil; say $r.perl;
> [09:38] <+camelia> rakudo-moar a162c4: OUTPUT«Empty»
> [09:38] <+camelia> ..rakudo-jvm fb4f16: OUTPUT«slip()»
> [09:38] <dwarring> r: my $r := do 42 with Empty; say $r.perl;
> [09:38] <+camelia> rakudo-moar a162c4: OUTPUT«-> ;; $_ is raw {
> #`(Block|81724200) ... }»
> [09:38] <+camelia> ..rakudo-jvm fb4f16: OUTPUT«-> ;; $_ is raw {
> #`(Block|277551034) ... }»
> [09:39] <IOninja> aw shit
> [09:39] == wamba [[email protected]] has joined #perl6
> [09:39] <IOninja> dwarring: you could add those cases to
> https://rt.perl.org/Ticket/Display.html?id=130798#ticket-history
Thank you for the report. This is now fixed.
OP's Issue:
Fix: https://github.com/rakudo/rakudo/commit/37316f8220
Tests: https://github.com/perl6/roast/commit/59d56a4cc1
dwarring's Issue in comments:
Fix: https://github.com/rakudo/rakudo/commit/3c8822e80d
Tests: https://github.com/perl6/roast/commit/8993a2434b
