Fix before handling in NFA generation.

Raku · Jun 6, 2012 · 0920483 · 0920483
1 parent 2dc71bc
commit 0920483
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/QRegex/NFA.nqp b/src/QRegex/NFA.nqp
@@ -120,7 +120,9 @@ class QRegex::NFA {
     method subrule($node, $from, $to) {
         my $subtype := $node.subtype;
         if $node.name eq 'before' && !$node.negate {
-            self.regex_nfa($node[0][1]<orig_qast>, $from, 0);
+            my $end := self.addstate();
+            self.regex_nfa($node[0][1]<orig_qast>, $from, $end);
+            self.fate($node, $end, $to);
         }
         elsif $subtype ne 'zerowidth' &&
                 ($node.name eq 'alpha' ||