RT #122245 fix \C[...] (negated \c)

FROGGS · FROGGS · commit fc99946feeab · 2014-07-20T22:36:56.000+02:00
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -427,7 +427,9 @@ class QRegex::P6Regex::Actions is HLL::Actions {
     }
 
     method cclass_backslash:sym<c>($/) {
-        make QAST::Regex.new( $<charspec>.ast, :rxtype('literal'), :node($/) );
+        make $<sym> eq 'C' ??
+            QAST::Regex.new( $<charspec>.ast, :rxtype('enumcharlist'), :negate(1), :node($/) ) !!
+            QAST::Regex.new( $<charspec>.ast, :rxtype('literal'), :node($/) )
     }
 
     method cclass_backslash:sym<any>($/) {

Original file line number	Diff line number	Diff line change
`@@ -427,7 +427,9 @@ class QRegex::P6Regex::Actions is HLL::Actions {`
`427`	`427`	`}`
`428`	`428`
`429`	`429`	`method cclass_backslash:sym<c>($/) {`
`430`		`- make QAST::Regex.new( $<charspec>.ast, :rxtype('literal'), :node($/) );`
	`430`	`+ make $<sym> eq 'C' ??`
	`431`	`+ QAST::Regex.new( $<charspec>.ast, :rxtype('enumcharlist'), :negate(1), :node($/) ) !!`
	`432`	`+ QAST::Regex.new( $<charspec>.ast, :rxtype('literal'), :node($/) )`
`431`	`433`	`}`
`432`	`434`
`433`	`435`	`method cclass_backslash:sym<any>($/) {`