fix issue with space after a "use NAME" statement

rakudo-p5 · May 29, 2013 · 87b409c · 87b409c
1 parent ebdb97d
commit 87b409c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Perl5/Grammar.nqp b/lib/Perl5/Grammar.nqp
@@ -1412,7 +1412,7 @@ grammar Perl5::Grammar is HLL::Grammar does STD5 {
                 }
 
                 if nqp::existskey(%pragma_defaults, $longname) {
-                    $arglist := %pragma_defaults{$longname} unless $<arglist>;
+                    $arglist := %pragma_defaults{$longname} unless $<arglist><arg>[0]<EXPR>;
                     self.pragma($longname, $arglist, 1);
                     $longname := '' unless $longname eq 'warnings';
                 }
@@ -1501,7 +1501,7 @@ grammar Perl5::Grammar is HLL::Grammar does STD5 {
             }
 
             if nqp::existskey(%pragma_defaults, $longname) {
-                self.pragma($longname, $<arglist>
+                self.pragma($longname, $<arglist><arg>[0]<EXPR>
                     ?? $arglist
                     !! %pragma_defaults{$longname}, 0);
             }