Browse files

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

  • Loading branch information...
1 parent a0842ef commit fc99946feeab71db1a9f949f96dd4784f1b50808 @FROGGS FROGGS committed Jul 20, 2014
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/QRegex/P6Regex/Actions.nqp
View
4 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>($/) {

0 comments on commit fc99946

Please sign in to comment.