[perl #92192] [BUG] Cannot call an anonymous method stored in an array in Rakudo

[Carl Mäsak]

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


<jnthn> rakudo: my @a; for 1..5 -> $i { @a.push(sub foo { say $i }) };
.() for @a
<p6eval> rakudo 048573: OUTPUT«1␤2␤3␤4␤5␤»
<jnthn> rakudo: my @a; for 1..5 -> $i { @a.push(method foo { say $i })
}; .() for @a
<p6eval> rakudo 048573: OUTPUT«Useless declaration of has-scoped
Method in a module; add our or my to install it in the lexpad or
namespace␤Subfoo (subid "82_1307132053.89459") has no $!llsig and no
$!lazysig␤  in <anon> at line 7674:CORE.setting␤  in main program body
at line 1␤»
<jnthn> wow :)
<TimToady> rakudo: my @a; for 1..5 -> $i { @a.push(anon method foo {
say $i }) }; .() for @a
<p6eval> rakudo 048573: OUTPUT«Subfoo (subid "82_1307132137.63473")
has no $!llsig and no $!lazysig␤  in <anon> at line 7674:CORE.setting␤
 in main program body at line 1␤»
<TimToady> rakudo: my @a; for 1..5 -> $i { @a.push(anon method foo {
say $i }) }; .($_) for @a
<p6eval> rakudo 048573: OUTPUT«Subfoo (subid "82_1307132201.72778")
has no $!llsig and no $!lazysig␤  in <anon> at line 7674:CORE.setting␤
 in main program body at line 1␤»
<jnthn> Not going to bother investigating; just been re-working that
chunk in nom and thought "huh, something looks adrift here..." :)
<masak> jnthn: hm, is it OK with you if I submit that one to RT?
<jnthn> masak: Why not? :)
* masak submits rakudobug
<jnthn> masak: It'll make sure it gets a test that way :)
<jnthn> And...one step closer to 2000 :P
<masak> ;)