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

[Zoffix Znet via RT]

On Sun, 06 Nov 2016 20:25:50 -0800, lloyd.fo...@gmail.com wrote:
> 15:18 < llfourn_> m: say (Str andthen .uc orelse "foo") # more golfed
> 15:18 <+camelia> rakudo-moar 1c425f: OUTPUT«-> ;; $_ is raw {
> #`(Block|81391040) ... }␤»
> 15:23 < llfourn_>  m: say (Str andthen .uc orelse "foo")("wee")
> 15:23 <+camelia> rakudo-moar 1c425f: OUTPUT«foo␤»
> 
> unless I totally missed what these are meant to do a Block is not what
> should be returned from this expression.

Thank you for the report. This is now fixed.

Fix: https://github.com/rakudo/rakudo/commit/287af6a37e00ad
Test: https://github.com/perl6/roast/commit/8d6a6397e7