<arglist> happily parses empty space here, then we could get nasty er…

…rors if whitespace fell in the wrong place rather than good errors or the module being loaded. Add a check against it.
rakudo · Jun 21, 2012 · 61f6f14 · 61f6f14
1 parent 4d79923
commit 61f6f14
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -764,7 +764,7 @@ grammar Perl6::Grammar is HLL::Grammar {
                 }
             }
             [
-            || <.spacey> <arglist>
+            || <.spacey> <arglist> <?{ $<arglist><EXPR> }>
                 {
                     my $arglist := $*W.compile_time_evaluate($/,
                             $<arglist><EXPR>.ast);
@@ -775,7 +775,6 @@ grammar Perl6::Grammar is HLL::Grammar {
                                                     $*GLOBALish);
                     do_import($module, ~$longname, $arglist);
                     $/.CURSOR.import_EXPORTHOW($module);
-
                 }
             || { 
                     unless ~$<doc> && !%*COMPILING<%?OPTIONS><doc> {