Apparent subscript will be treated as regex

Throw the same warning as STD does for things like @var[0], $var{a} and $var<a> in regexes.
rakudo · Feb 16, 2013 · 932bc53 · 932bc53
1 parent 1e85ffd
commit 932bc53
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -3770,8 +3770,14 @@ grammar Perl6::RegexGrammar is QRegex::P6Regex::Grammar does STD {
     }
 
     token metachar:sym<rakvar> {
-        <?before <sigil> [<alpha> | \W<alpha> | '(']> <var=.LANG('MAIN', 'variable')>
-        { self.check_variable($<var>) }
+        <?before <sigil> $<twigil>=[<alpha> | \W<alpha> | '(']>
+        <var=.LANG('MAIN', 'variable')>
+        [
+        || $<binding> = ( \s* '=' \s* <quantified_atom> )
+           { self.check_variable($<var>) unless $<twigil> eq '<' }
+        || { self.check_variable($<var>) }
+           [ <?before '.'? <[ \[ \{ \< ]>> <.worry: "Apparent subscript will be treated as regex"> ]?
+        ]
     }
 
     token metachar:sym<qw> {