When we do a use, we need to make sure the recursive invocation of th…

…e Perl 6 compiler gets a clean @?NS, otherwise thigns start getting nested in namespaces in the non-pre-compiled case.
rakudo · Mar 20, 2009 · 2352fd0 · 2352fd0
1 parent cba1557
commit 2352fd0
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/builtins/eval.pir b/src/builtins/eval.pir
@@ -119,8 +119,13 @@ itself can be found in src/builtins/control.pir.
     goto done
 
   eval_perl6:
+    .local pmc outer_ns_chain
+    outer_ns_chain = get_hll_global ['Perl6';'Grammar';'Actions'], '@?NS'
+    $P0 = new 'List'
+    set_hll_global ['Perl6';'Grammar';'Actions'], '@?NS', $P0
     inc_hash[name] = realfilename
     result = 'evalfile'(realfilename, 'lang'=>'Perl6')
+    set_hll_global ['Perl6';'Grammar';'Actions'], '@?NS', outer_ns_chain
 
   done:
     .return (result)