# 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

Reply via email to