Fix infix:<...> with a list to the right so it doesn't flow away data…

…. Patch courtesty of (Alexey Grebenschikov)++.
rakudo · Jun 12, 2010 · ae1300f · ae1300f
1 parent 57ec550
commit ae1300f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -345,6 +345,12 @@ our multi sub infix:<...>($lhs, $rhs) {
                 take $y;
             }
         }
+
+        if $rhs ~~ Iterable {
+            for @($rhs) {
+                take $_;
+            }
+        }
     }
 }