[perl #77168] typed list causes recursion limit hit

[Will Coleda via RT]

On Mon Jul 19 05:46:45 2010, salva wrote:
> 
> $ ./perl6 -e 'my Int @a; push @a, 5;  say @a[0]'
> maximum recursion depth exceeded
>   in 'at_pos' at line 5:CORE.setting
>   in 'at_pos' at line 7:CORE.setting
>   in 'Any::postcircumfix:<[ ]>' at line 1624:CORE.setting
>   in 'at_pos' at line 5:CORE.setting
>   in 'at_pos' at line 7:CORE.setting
>   in 'Any::postcircumfix:<[ ]>' at line 1624:CORE.setting
>   in 'at_pos' at line 5:CORE.setting
>   in 'at_pos' at line 7:CORE.setting
>   in 'Any::postcircumfix:<[ ]>' at line 1624:CORE.setting
>   ...
> 
> the error does not happen when 'Int' is removed.
> 
> 
> $ ./perl6 --version
> 
> This is Rakudo Perl 6, version 2010.06-279-gf55fb01 built on parrot 
r48074
> 
> $ git rev-parse HEAD
> f55fb012b4e0937e3e54366a0aa308113d1c9570
> 
> 
> Cheers,
> 
>  - Salva
> 

Fixed.

17:09 < [Coke]> rakudo: my @a; push @a, 5; say @a[0];
17:09 <+p6eval> rakudo 33f1cf: OUTPUT«5␤»
17:10 < [Coke]> rakudo: my Int @a; push @a, 5; say @a[0];
17:10 <+p6eval> rakudo 33f1cf: OUTPUT«5␤»

Closable with tests.

-- 
Will "Coke" Coleda