Merge pull request #520 from skids/glr3

Prevent generation of X::Cannot::Empty Failures in :nth processing.
rakudo · Aug 29, 2015 · a977dc3 · a977dc3
2 parents f35d9de + 918cf63
commit a977dc3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -687,11 +687,11 @@ my class Str does Stringy { # declared in BOOTSTRAP
             @matches := (gather do for $matches -> $m {
                 state $i = 0;
                 state $took = 0;
-                state $n = $idxs.shift;
+                state $n = $idxs.EXISTS-POS(0) ?? $idxs.shift !! Nil;
                 last unless $n.defined;
 
                 if $i == $n {
-                    $n = $idxs.shift;
+                    $n = $idxs.EXISTS-POS(0) ?? $idxs.shift !! Nil;
                     take $m;
                     $took++;
                     last if $took >= $clip.max;