Combined negated charclass should be zero-width.

perl6 · Oct 18, 2009 · 6d0e83e · 6d0e83e
1 parent 2408264
commit 6d0e83e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -344,7 +344,7 @@ method assertion:sym<[>($/) {
     while $i < $n {
         my $ast := $clist[$i].ast;
         if $ast.negate {
-            $past.subtype('zerowidth');
+            $ast.subtype('zerowidth');
             $past := PAST::Regex.new( $ast, $past, :pasttype('concat'), :node($/) );
         }
         else {