Fix to infix:<...> so that it returns the first value rather than a r…

…eference to the loop variable.
rakudo · Feb 10, 2010 · 63cafa9 · 63cafa9
1 parent 0af588e
commit 63cafa9
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -190,7 +190,8 @@ our multi sub infix:<...>($lhs, Code $rhs) {
 
     my $i = $lhs;
     gather {
-        take $i;
+        my $j = $i;
+        take $j;
         my $last = $i;
         loop {
             $i = $rhs.($last);