[perl #130798] A andthen B orelse C orelse D leaks some internal Block

[Zoffix Znet via RT]

On Fri, 17 Feb 2017 12:41:12 -0800, david.warring wrote:
> On Thu, 16 Feb 2017 19:44:47 -0800, lloyd.fo...@gmail.com 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 [~wa...@193-194.moravanet.cz] 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