RT #102650: scoping bug in statement-modifying for-loops

Raku · Jan 12, 2013 · b1cba00 · b1cba00
1 parent aedecf7
commit b1cba00
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/S04-declarations/my.t b/S04-declarations/my.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 71;
+plan 72;
 
 #L<S04/The Relationship of Blocks and Declarations/"declarations, all
 # lexically scoped declarations are visible"> 
@@ -290,4 +290,16 @@ eval_lives_ok 'multi f(@a) { }; multi f(*@a) { }; f(my @a = (1, 2, 3))',
     nok $bad, '... and it does so before run time';
 }
 
+#RT #102650
+{
+    my @tracker;
+    my $outer;
+    sub t() {
+        my $inner = $outer++;
+        @tracker.push($inner) and t() for $inner ?? () !! ^2;
+    }
+    t();
+    is @tracker.join(', '), '0, 0', 'RT 102650';
+}
+
 # vim: ft=perl6