[perl #64974] loop fails (when followed by for ?)

[via RT]

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


perl version: rakudo-d0a5de55a1da8c7307e6c486fd9b548fcbc0b727.tar.gz
parrot version: 1.1.0

I tried this:
-----------------------------------------
loop(my $i=0; $i<10; $i++) {
    print "$i";
};
print "\n";
-----------------------------------------

then this:
-----------------------------------------
for (0..10) ->$x {
    print "$x";
};
print "\n";
-----------------------------------------

both of these work. but when I put them in the same file, like this:

-----------------------------------------
loop(my $i=0; $i<10; $i++) {
    print "$i";
};
print "\n";


for (0..10) ->$x {
    print "$x";
};
print "\n";
-----------------------------------------

it doesn't work...

Redeclaration of variable $i
Redeclaration of variable $i
Statement not terminated properly at line 1, near "(my $i=0; "

current instr.: 'parrot;PGE;Util;die' pc 129
(runtime/parrot/library/PGE/Util.pir:85)
called from Sub 'parrot;Perl6;Grammar;eat_terminator' pc 76062
(src/gen_grammar.pir:2531)
called from Sub 'parrot;Perl6;Grammar;statementlist' pc 74719
(src/gen_grammar.pir:1997)
called from Sub 'parrot;Perl6;Grammar;statement_block' pc 72152
(src/gen_grammar.pir:981)
called from Sub 'parrot;Perl6;Grammar;TOP' pc 66891 (src/gen_setting.pir:13146)
called from Sub 'parrot;PCT;HLLCompiler;parse' pc 665
(src/PCT/HLLCompiler.pir:402)
called from Sub 'parrot;PCT;HLLCompiler;compile' pc 428
(src/PCT/HLLCompiler.pir:303)
called from Sub 'parrot;PCT;HLLCompiler;eval' pc 920
(src/PCT/HLLCompiler.pir:521)
called from Sub 'parrot;PCT;HLLCompiler;evalfiles' pc 1275
(src/PCT/HLLCompiler.pir:690)
called from Sub 'parrot;PCT;HLLCompiler;command_line' pc 1470
(src/PCT/HLLCompiler.pir:791)
called from Sub 'parrot;Perl6;Compiler;main' pc 24292 (perl6.pir:164)