report unrecognized backslash sequences

perl6 · Sep 7, 2010 · 24b297f · 24b297f
1 parent 237bf91
commit 24b297f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Regex/P6Regex/Grammar.pm b/src/Regex/P6Regex/Grammar.pm
@@ -145,6 +145,7 @@ grammar Regex::P6Regex::Grammar is HLL::Grammar;
     token backslash:sym<z> { 'z' <.obs: '\\z as end-of-string matcher', '$'> }
     token backslash:sym<Z> { 'Z' <.obs: '\\Z as end-of-string matcher', '\\n?$'> }
     token backslash:sym<Q> { 'Q' <.obs: '\\Q as quotemeta', 'quotes or literal variable match'> }
+    token backslash:sym<unrec> { {} \w <.panic: 'Unrecognized backslash sequence'> }
     token backslash:sym<misc> { \W }
 
     proto token assertion { <...> }