Little fix to BEGIN-time symbol handling.

rakudo · Jul 12, 2011 · fd4005c · fd4005c
1 parent 38b4f24
commit fd4005c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/SymbolTable.pm b/src/Perl6/SymbolTable.pm
@@ -766,9 +766,10 @@ class Perl6::SymbolTable is HLL::Compiler::SerializationContextBuilder {
                         }
                         if $ref {
                             $wrapper[0].push(PAST::Var.new(
-                                :name($_.key), :scope('lexical'), :isdecl(1),
+                                :name($_.key), :scope('lexical_6model'), :isdecl(1),
                                 :viviself($ref)
                             ));
+                            $wrapper.symbol($_.key, :scope('lexical_6model'));
                         }
                     }
                 }