Corret mistake in anonymising lexical subs.

rakudo · Apr 2, 2009 · c40f3b9 · c40f3b9
1 parent 8eb5225
commit c40f3b9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -1939,7 +1939,7 @@ method scope_declarator($/) {
         if $scope eq 'lexical' {
             # Block needs to become anonymous; register lexical name.
             my $name := $past.name();
-            $past.name(undef);
+            $past.name($past.unique('block_'));
             $block.symbol($name, :scope('lexical'));
 
             if $past<multi_flag> {