allow escaped hyphens too

Raku · Nov 20, 2011 · af28c73 · af28c73
1 parent 93744c1
commit af28c73
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -306,7 +306,7 @@ class QRegex::P6Regex::Actions is HLL::Actions {
     }
 
     method backlit($/) {
-        my $qast := QAST::Regex.new( '\\', :rxtype('enumcharlist'),
+        my $qast := QAST::Regex.new( ~$/, :rxtype('enumcharlist'),
                         :node($/) );
         make $qast;
     }

diff --git a/src/QRegex/P6Regex/Grammar.nqp b/src/QRegex/P6Regex/Grammar.nqp
@@ -195,7 +195,7 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
 
     token assertion:sym<[> { <?before '['|'+'|'-'> <cclass_elem>+ }
 
-    token backlit { '\\' }
+    token backlit { '\\' | '-' }
 
     token cclass_elem {
         $<sign>=['+'|'-'|<?>]