# 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