[perl #89208] [BUG] Run-time error when calling a sub defined in place inside a statement modifier for loop in Rakudo

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #89208]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=89208 >


<masak> std: my %h=1=>"happy";my %s;say [$_,(sub r {return "sad"
if%s{$^n}++;%h{$n}//=r [+] $n.comb»**»2})($_)] for ^10
<p6eval> std 3468e14: OUTPUT«ok 00:01 124m␤»
<masak> rakudo: my %h=1=>"happy";my %s;say [$_,(sub r {return "sad"
if%s{$^n}++;%h{$n}//=r [+] $n.comb»**»2})($_)] for ^10
* masak submits rakudobug
<masak> niecza: (sub r { say "OH HAI" })() for 5
<p6eval> niecza v4-70-gfb79b12: OUTPUT«OH HAI␤»
<masak> rakudo: (sub r { say "OH HAI" })() for 5  [16:22]
<p6eval> rakudo ecc4ef: OUTPUT«Could not find sub code_73␤  in <anon>
at line 22:/tmp/LeVlNG7yDT␤  in main program body at line 1␤»
<sbp> std: (sub r { say "OH HAI" })() for 5
<p6eval> std 3468e14: OUTPUT«ok 00:01 120m␤»
<masak> rakudo: say "compiles OK"; (sub r { say "OH HAI" })() for 5
<p6eval> rakudo ecc4ef: OUTPUT«compiles OK␤Could not find sub code_73 [...]
<masak> rakudo: for 5 { (sub { say "OH HAI" })() }; say "alive"
<p6eval> rakudo ecc4ef: OUTPUT«alive␤»
<masak> wtf
<masak> niecza: for 5 { (sub { say "OH HAI" })() }; say "alive"
<p6eval> niecza v4-70-gfb79b12: OUTPUT«OH HAI␤alive␤»
<TimToady> sink bug?
<TimToady> rakudo: for 5 { say "OH HAI" }; say "alive"
<p6eval> rakudo ecc4ef: OUTPUT«OH HAI␤alive␤»
<TimToady> not sink bug

Arguably two distinct bugs. There's a strange error with the statement
modifier, and there's absolutely nothing with the normal for loop.