Skip Menu |
Report information
Id: 131501
Status: new
Priority: 0/
Queue: perl6

Owner: Nobody
Requestors: cpan [at] zoffix.com
Cc:
AdminCc:

Severity: (no value)
Tag: Bug
Platform: (no value)
Patch Status: (no value)
VM: (no value)



Subject: [BUG] meta-forms of andthen, notandthen, and orelse leak thunks when Slips given as args
Download (untitled) / with headers
text/plain 1.5k
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


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org