[rakudo]: Module declarator statements carp if not first in compunit.

git-svn-id: https://svn.parrot.org/parrot/trunk@35341 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
ashgti · Jan 10, 2009 · 8b436ac · 8b436ac
1 parent 635d25b
commit 8b436ac
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/languages/perl6/src/parser/grammar.pg b/languages/perl6/src/parser/grammar.pg
@@ -45,6 +45,8 @@ Rules with only one action need no #= comment.
 grammar Perl6::Grammar is PCT::Grammar;
 
 token TOP {
+    {{ $P0 = get_hll_global ['Bool'], 'True'
+       set_global '$begin_compunit', $P0 }}
     <.MARK_STATEMENT_END>
     <statement_block>
     [ $ || <panic: Syntax error> ]
@@ -215,6 +217,7 @@ token MARK_STATEMENT_END {
 ##  or an expression.  Any statement termination is handled by
 ##  the calling rule.
 rule statement {
+    [
     | <statement_control> {*}                    #= control
     | <expr=EXPR>
         [
@@ -225,6 +228,9 @@ rule statement {
         || {*}                                   #= expr
         ]
     | <?before ';'> {*}                          #= null
+    ]
+    {{ $P0 = get_hll_global ['Bool'], 'False'
+       set_global '$begin_compunit', $P0 }}
 }
 
 rule statement_control {
@@ -629,7 +635,9 @@ rule package_def {
     ]? 
     <trait>*
     [
-    | ';' <statement_block> {*}                          #= statement_block
+    | <?{{ $P0 = get_global '$begin_compunit'
+           .return ($P0) }}>
+      ';' <statement_block> {*}                          #= statement_block
     | <block> {*}                                        #= block
     | {*}                                                #= panic
     ]