fixed pattern of impossible sub names

rakudo-p5 · May 18, 2013 · 2644cc5 · 2644cc5
1 parent eb379b1
commit 2644cc5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Perl5/Grammar.nqp b/lib/Perl5/Grammar.nqp
@@ -3730,7 +3730,7 @@ grammar Perl5::Grammar is HLL::Grammar does STD5 {
 #    }
     token term:sym<identifier> {
         :my $name;
-        <identifier> <!{ ~$<identifier> ~~ /^ 'm' || 'q' || 'qq' || 'qr' || 'qw' $/; }>
+        <identifier> <!{ ~$<identifier> ~~ /^ [ 'm' || 'q' || 'qq' || 'qr' || 'qw' ] $/; }>
         { $name := ~$<identifier>; }
         [\h+ <?[(]>]?
         <args( $*W.is_type($name) )>