Fix an off-by-one just introduced :-(

rakudo · Nov 7, 2015 · 8b834cc · 8b834cc
1 parent 4b8937f
commit 8b834cc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -881,11 +881,11 @@ my class Str does Stringy { # declared in BOOTSTRAP
                     if $skip-empty {
                         nqp::splice($matches,$match-list,$i,
                           nqp::iseq_i(nqp::chars(nqp::atpos($matches,$i)),0))
-                            while nqp::isge_i($i = nqp::sub_i($i,1),0);
+                            while $i = nqp::sub_i($i,1);
                     }
                     else {
                         nqp::splice($matches,$match-list,$i,0)
-                          while nqp::isge_i($i = nqp::sub_i($i,1),0);
+                          while $i = nqp::sub_i($i,1);
                     }
                 }
             }