forbid my $1

rakudo · Aug 28, 2010 · 4ca5220 · 4ca5220
1 parent a821f58
commit 4ca5220
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -786,7 +786,7 @@ token variable {
     ||  [
         | <sigil> <twigil>? <desigilname>
         | <special_variable>
-        | <sigil> $<index>=[\d+]
+        | <sigil> $<index>=[\d+] [ <?{ $*IN_DECL}> <.panic: "Can't declare a numeric variable">]?
         | <sigil> <?[<[]> <postcircumfix>
         | $<sigil>=['$'] $<desigilname>=[<[/_!]>]
         | <sigil> <?{ $*IN_DECL }>