# New Ticket Created by Zoffix Znet # Please include the string: [perl #131501] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/Ticket/Display.html?id=131501 >
There were some fixes[^1] to prevent these ops from leaking thunks, and it looks like the routines that handle meta forms need similar treatment, perhaps adding their own meta routines for these ops: <Zoffix__> m: sub { [andthen] |(), 42 }().perl.say <camelia> rakudo-moar 64e898: OUTPUT: «-> ;; $_ is raw { #`(Block|44721392) ... }» <Zoffix__> m: sub { [andthen] 42 }().perl.say <camelia> rakudo-moar 64e898: OUTPUT: «42» <Zoffix__> m: sub { [andthen] |() }().perl.say <camelia> rakudo-moar 64e898: OUTPUT: «Bool::True» <Zoffix__> m: sub { [notandthen] |(), 42 }().perl.say <camelia> rakudo-moar 64e898: OUTPUT: «-> ;; $_ is raw { #`(Block|44971280) ... }» <Zoffix__> m: sub { [orelsee] |(), 42 }().perl.say <camelia> rakudo-moar 64e898: OUTPUT: «===SORRY!=== Error while compiling <tmp>Undeclared routine: orelsee used at line 1» <Zoffix__> m: sub { [orelse] |(), 42 }().perl.say <camelia> rakudo-moar 64e898: OUTPUT: «-> ;; $_ is raw { #`(Block|37405936) ... }» <Zoffix__> m: sub { [\orelse] |(), 42 }().perl.say <camelia> rakudo-moar 64e898: OUTPUT: «(-> ;; $_ is raw { #`(Block|51258872) ... },).Seq» <Zoffix__> m: sub { [\andthen] |(), 42 }().perl.say <camelia> rakudo-moar 64e898: OUTPUT: «(-> ;; $_ is raw { #`(Block|57165304) ... },).Seq» <Zoffix__> m: sub { [\notandthen] |(), 42 }().perl.say <camelia> rakudo-moar 64e898: OUTPUT: «(-> ;; $_ is raw { #`(Block|35411480) ... },).Seq» [1] https://github.com/rakudo/rakudo/commit/3c8822e80d39c6c37d1059517e444e4295f24a30