RT #115802, cclasses dont support zerowidth

Raku · Feb 24, 2013 · a4818ae · a4818ae
1 parent ba02ea9
commit a4818ae
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -432,7 +432,12 @@ class QRegex::P6Regex::Actions is HLL::Actions {
         while $i < $n {
             my $ast := $clist[$i].ast;
             if $ast.negate {
-                $ast.subtype('zerowidth');
+                if $ast.rxtype eq 'cclass' {
+                    $ast := QAST::Regex.new( :rxtype<conj>, :subtype<zerowidth>, $ast );
+                }
+                else {
+                    $ast.subtype('zerowidth');
+                }
                 $qast := QAST::Regex.new( $ast, $qast, :rxtype<concat>, :node($/));
             }
             else {