Fix some unspace parsing cases (RT#128462 and degenerate unspace)

see RT for analysis/explanation
rakudo · Oct 1, 2017 · 11070e0 · 11070e0
1 parent 4ca1fc3
commit 11070e0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -3344,7 +3344,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
 
     token term:sym<identifier> {
         :my $pos;
-        <identifier> <!{ $*W.is_type([~$<identifier>]) }> <?before <.unsp>|'('> <![:]>
+        <identifier> <!{ $*W.is_type([~$<identifier>]) }> [ <?before <.unsp>? '('> | \\ <?before '('> ]
         { $pos := $/.pos }
         <args(1)>
         {
@@ -3422,7 +3422,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
                 }
             }
             [<?{ %colonpairs }> <colonpairs=.O(|%colonpairs)>]?
-        || <args(1)>
+        || [ \\ <?before '('> ]? <args(1)>
             {
                 if !$<args><invocant> {
                     my $name := ~$<longname>;