Fix series operator bug in the initial elements of a series.

rakudo · Apr 12, 2010 · 8b256a9 · 8b256a9
1 parent ae2e81b
commit 8b256a9
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -387,8 +387,9 @@ our multi sub infix:<...>(@lhs is copy, $rhs) {
         my $top = $arity min @lhs.elems;
         for 0..^$top -> $i {
             $j = @lhs[$i];
-            take $j;
-            @args.push($j);
+            my $jj = $j;
+            take $jj;
+            @args.push($jj);
         }
 
         if !$limit.defined || $limit cmp $j != 0 {