Ensure <.alpha> contributes to longest prefix.

Raku · Jun 2, 2012 · 1764d47 · 1764d47
1 parent dc8561c
commit 1764d47
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/QRegex/NFA.nqp b/src/QRegex/NFA.nqp
@@ -122,7 +122,8 @@ class QRegex::NFA {
         if $node.name eq 'before' && !$node.negate {
             self.regex_nfa($node[0][1]<orig_qast>, $from, 0);
         }
-        elsif $node.name eq 'alpha' {
+        elsif $node.name eq 'alpha' ||
+              $subtype eq 'method' && $node[0][0] eq 'alpha' {
             self.addedge($from, $to, $EDGE_CHARCLASS + $node.negate,
                 pir::const::CCLASS_ALPHABETIC)
         }