[perl #74076] [BUG] Null PMC access when accessing $OUTER::_ in a block in Rakudo

[Will Coleda via RT]

On Wed Aug 11 19:03:13 2010, coke wrote:
> On Mon Apr 05 14:52:35 2010, masak wrote:
> > <cognominal> rakudo:   my @t; for  < a b > {  @t.push(  sub {
> > $OUTER::_ } ) }; say $_() for  @t
> > <p6eval> rakudo c41cf3: OUTPUT�Null PMC access in type() [...]
> 
> This no longer has an NPE...
> 
> > * masak submits rakudobug
> > <masak> rakudo: { say $OUTER::_ }
> > <p6eval> rakudo c41cf3: OUTPUT�Null PMC access in type() [...]
> > * masak can haz a golfed version
> 
> but this does.

Both now clean:

15:46 < [Coke]> rakudo: my @t; for < a b > { @t.push( sub { $OUTER::_ } 
) };
                say $_() for @t
15:46 <+p6eval> rakudo ce15be: OUTPUT«Too many positional parameters 
passed;
                got 1 but expected 0␤  in block <anon> at 
/tmp/3c0i82rwTB:1␤
                in method reify at src/gen/CORE.setting:3752␤  in 
method reify
                at src/gen/CORE.setting:3657␤  in method reify at
                src/gen/CORE.setting:3657␤  in method gimme at src/…
15:46 < [Coke]> rakudo: { say $OUTER::_ }
15:46 <+p6eval> rakudo ce15be: OUTPUT«Any()␤»

Closable with tests.

-- 
Will "Coke" Coleda