Fix for hang in t/spec/S05-transliteration/trans.t

rakudo · Oct 26, 2015 · c93e637 · c93e637
1 parent 421022d
commit c93e637
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -948,7 +948,7 @@ multi sub infix:<xx>(Mu \x, Int() $n, :$thunked!) {
     my int $todo = $n;
     my Mu $pulled;
     my Mu $list := nqp::list();
-    while $todo {
+    while $todo > 0 {
         $pulled := x.();
         if nqp::istype($pulled,Slip) {
             nqp::push($list, $_) for $pulled;