Add error message on incorrect range quantifiers.

perl6 · Nov 24, 2009 · fafe401 · fafe401
1 parent fb49c3e
commit fafe401
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/Regex/P6Regex/Grammar.pm b/src/Regex/P6Regex/Grammar.pm
@@ -56,8 +56,15 @@ grammar Regex::P6Regex::Grammar is HLL::Grammar;
     token quantifier:sym<**> {
         <sym> \s* <backmod> \s*
         [
-        || $<min>=[\d+] [ '..' $<max>=[\d+|'*'] ]?
-        || <quantified_atom>
+        ||  $<min>=[\d+] 
+            [   '..' 
+                $<max>=[ 
+                       || \d+ 
+                       || '*' 
+                       || <.panic: "Only integers or '*' allowed as range quantifier endpoint"> 
+                       ] 
+            ]?
+        ||  <quantified_atom>
         ]
     }