track current packages in @*PACKAGES

we will need it for exporting from nested packages
rakudo · May 8, 2012 · 40547d6 · 40547d6
1 parent 632b1f9
commit 40547d6
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -421,6 +421,8 @@ grammar Perl6::Grammar is HLL::Grammar {
         :my $*UNIT;
         :my $*UNIT_OUTER;
         :my $*EXPORT;
+        # stack of packages, which the 'is export' needs
+        :my @*PACKAGES := [];
 
         # A place for Pod
         :my $*POD_BLOCKS := [];
@@ -1398,6 +1400,7 @@ grammar Perl6::Grammar is HLL::Grammar {
                 }
             }
 
+            { nqp::push(@*PACKAGES, $*PACKAGE); }
             [
             || <?[{]> 
                 [
@@ -1431,6 +1434,7 @@ grammar Perl6::Grammar is HLL::Grammar {
                 ]
             || <.panic: "Unable to parse $*PKGDECL definition">
             ]
+            { nqp::pop(@*PACKAGES); }
         ] || { $/.CURSOR.malformed($*PKGDECL) }
     }