# 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)
