Parse a & a as a conjunction, not concat

Needed to fix #2901 jnthn++ for the actual fix
rakudo · May 18, 2019 · f18af94 · f18af94
1 parent 7a7a23d
commit f18af94
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -5582,7 +5582,7 @@ grammar Perl6::RegexGrammar is QRegex::P6Regex::Grammar does STD does MatchPacka
     }
 
     token metachar:sym<rakvar> {
-        <?before <.sigil> $<twigil>=[<.alpha> | \W<.alpha> | '(']>
+        <?before <.sigil> $<twigil>=[<.alpha> | <+[\W]-[\s]><.alpha> | '(']>
         <!before <.sigil> <.rxstopper> >
         <var=.LANG('MAIN', 'variable')>
         [