Fix a case of variable interpolation. Resolves S05-interpolation/rege…

…x-in-variable.t failures and probably S05-modifier/ignorecase.t too.
rakudo · May 27, 2012 · 9653a4d · 9653a4d
1 parent c297695
commit 9653a4d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -2862,7 +2862,7 @@ grammar Perl6::RegexGrammar is QRegex::P6Regex::Grammar {
     }
 
     token metachar:sym<rakvar> {
-        <?[$@&]> <?before .<?alpha>> <var=.LANG('MAIN', 'variable')>
+        <?before <[$@&]> [<alpha> | \W<alpha>]> <var=.LANG('MAIN', 'variable')>
     }
 
     token metachar:sym<qw> {