more awesome error message for unrecognized meta character in regexes

not quite awesome yet, it does not report the actual offending character
Raku · May 12, 2011 · d846b25 · d846b25
1 parent dcd196e
commit d846b25
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/Regex/P6Regex/Grammar.pm b/src/Regex/P6Regex/Grammar.pm
@@ -32,8 +32,10 @@ grammar Regex::P6Regex::Grammar is HLL::Grammar {
         {*} #= open
         [ <.ws> ['||'|'|'|'&&'|'&'] ]?
         <termconj>
-        [ ['||'|'|']
-          [ <termconj> || <.panic: 'Null pattern not allowed'> ]
+        [ 
+            || ['||'|'|'] [ <termconj>
+            || (\W) <.panic: "Unrecognized regex metacharacter (must be quoted to match literally)">
+            || <.panic: 'Null pattern not allowed'> ]
         ]*
     }
 
@@ -45,7 +47,8 @@ grammar Regex::P6Regex::Grammar is HLL::Grammar {
     }
 
     token termish {
-        <noun=.quantified_atom>+
+        || <noun=.quantified_atom>+
+        || (\W) <.panic: "Unrecognized regex metacharacter (must be quoted to match literally)">
     }
 
     token quantified_atom {