Fix NFA construction for the empty literal, so / '' / now gets its NF…

…A built properly. Gets 45-smartmatch.t building and passing again.
Raku · Nov 16, 2011 · 5680b10 · 5680b10
1 parent a915744
commit 5680b10
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/src/QRegex/NFA.nqp b/src/QRegex/NFA.nqp
@@ -105,11 +105,16 @@ class QRegex::NFA {
         my $litconst := $node[0];
         my $litlen   := nqp::chars($litconst) - 1;
         my $i        := 0;
-        while $i < $litlen {
-            $from := self.addedge($from, -1, $EDGE_CODEPOINT, nqp::ord($litconst, $i));
-            $i := $i + 1;
+        if $litlen >= 0 {
+            while $i < $litlen {
+                $from := self.addedge($from, -1, $EDGE_CODEPOINT, nqp::ord($litconst, $i));
+                $i := $i + 1;
+            }
+            self.addedge($from, $to, $EDGE_CODEPOINT, nqp::ord($litconst, $i));
+        }
+        else {
+            self.addedge($from, $to, $EDGE_EPSILON, 0);
         }
-        self.addedge($from, $to, $EDGE_CODEPOINT, nqp::ord($litconst, $i));
     }
 
     method subrule($node, $from, $to) {