allow escaped hyphens too

diakopter · diakopter · commit af28c7358410 · 2011-11-20T03:54:58.000-08:00
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>=['+'|'-'|<?>]

Original file line number	Diff line number	Diff line change
`@@ -306,7 +306,7 @@ class QRegex::P6Regex::Actions is HLL::Actions {`
`306`	`306`	`}`
`307`	`307`
`308`	`308`	`method backlit($/) {`
`309`		`- my $qast := QAST::Regex.new( '\\', :rxtype('enumcharlist'),`
	`309`	`+ my $qast := QAST::Regex.new( ~$/, :rxtype('enumcharlist'),`
`310`	`310`	`:node($/) );`
`311`	`311`	`make $qast;`
`312`	`312`	`}`