[perl #79296] [Bug] Bug on Array Index.

[via RT]

# New Ticket Created by  min...@gmail.com 
# Please include the string:  [perl #79296]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=79296 >


Hi there,

I got a error when trying this piece of code:

my Int @s[0..10];
my $f = sub (Int $n) { (@s[0]==0) ?? 1 !! 0 };
say $f(0);

<p6eval>        rakudo 015d77: OUTPUT«maximum recursion depth exceeded
in 'at_pos' at line 5:CORE.setting␤ in 'at_pos' at line 5:CORE.setting
in 'Any::postcircumfix:<[ ]>' at line 1725:CORE.setting
in 'at_pos' at line 5:CORE.setting
in 'at_pos' at line 5:CORE.setting
in 'Any::postcircumfix:<[ ]>' at
        <p6eval>        ..line 172…

and

my Int @s[0..10]; say (@s[0]==0) ?? 1 !! 0

<p6eval>        rakudo 015d77: OUTPUT«(timeout)»


Sincerely,
Mindos