Merge branch 'nfa' of github.com:perl6/nqp into nfa

Raku · Nov 16, 2011 · abf900a · abf900a
2 parents cecd970 + 46e0f9e
commit abf900a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -130,7 +130,7 @@ role NQPCursorRole {
                 if pir::defined($pos) {
                     my $n := nqp::elems(@fatesort) - 1;
                     while $n >= 0
-                          && @fatepos[@fatesort[$n]] > @fatepos[$fate] {
+                          && @fatepos[@fatesort[$n]] >= @fatepos[$fate] {
                         $n := $n - 1;
                     }
                     nqp::splice(@fatesort, [$fate], $n+1, 0);