From d4b1b0f3f04b2e450ece751fac6abb825299ac95 Mon Sep 17 00:00:00 2001
From: sorear <sorear@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Wed, 16 Jun 2010 10:40:10 +0000
Subject: [PATCH] [dfa/Cursor] Tiebreak in favor of the _longest_ literal
 prefix...

git-svn-id: http://svn.pugscode.org/pugs@31297 c213334d-75ef-0310-aa23-eaa082d1ae64
---
 src/perl6/dfa/RE_ast.pmc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/perl6/dfa/RE_ast.pmc b/src/perl6/dfa/RE_ast.pmc
index d95b0200c..7e73b473c 100644
--- a/src/perl6/dfa/RE_ast.pmc
+++ b/src/perl6/dfa/RE_ast.pmc
@@ -141,7 +141,7 @@ sub nfaprefate { my ($fates, $nfa) = @_;
 }
 
 sub nfaltmprefate { my ($tag, $val, $tb, $inner) = @_;
-    my $ord = pack("NN", ($inner->[0][0]{LITLEN} // 0), $tb);
+    my $ord = pack("NN", (~($inner->[0][0]{LITLEN} // 0)), $tb);
     nfaprefate([[ $tag, $val, $ord, 0 ]], $inner);
 }
 
-- 
2.11.4.GIT