From lode.leroy@gmail.com

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)

lode.leroy@gmail.com - Status changed from 'new' to 'open'

From lode.leroy@gmail.com

actually, adding a space in the code fixes it,

<<<-----------------------------------------
loop(my $i=0; $i<10; $i++) {
===-----------------------------------------
loop(my $i=0; $i <10; $i++) {

-----------------------------------------

lode.leroy@gmail.com - Status changed from 'open' to 'new'

From @kyleha

Thanks for your bug submission!

On Wed Apr 22 07​:09​:42 2009, lleroy wrote​:

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

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

it doesn't work...

This dies because $i<...> is interpreted as a postcircumfix​:<...>
operator (due to the greater-than in the for loop). In an ambiguous
case like this, white space around the infix operator (less-than) is
required, so the code is broken as written. The same thing happens if
the greater-than is in a comment like so​:

loop (my $i=0; $i<10; $i++) { say $i } # >

Since this is behaving as expected, I'm rejecting this bug.

The RT System itself - Status changed from 'new' to 'open'

@kyleha - Status changed from 'open' to 'rejected'