complain about negatives in range quantifiers.

Raku · Feb 28, 2013 · 63b55a0 · 63b55a0
1 parent 3dd264f
commit 63b55a0
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/QRegex/P6Regex/Grammar.nqp b/src/QRegex/P6Regex/Grammar.nqp
@@ -172,9 +172,11 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
                 $<max>=[ 
                        || \d+ 
                        || '*' 
+                       || \-\d+ <.panic: "Negative numbers are not allowed as range quantifier endpoint">
                        || <.panic: "Only integers or '*' allowed as range quantifier endpoint"> 
                        ] 
             ]?
+        || \-\d+ <.panic: "Negative numbers are not allowed as range quantifier endpoint">
         ]
     }