in sequence operator, avoid over-eager munching of elements. diakopter++

rakudo · May 31, 2012 · 9cd99ac · 9cd99ac
1 parent b057f6f
commit 9cd99ac
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -103,10 +103,13 @@ sub SEQUENCE($left, $right, :$exclude_end) {
             take $value;
         }
         unless $stop {
-            $tail.munch($tail.elems - 3) if $tail.elems > 3;
-            my $a = $tail[0];
-            my $b = $tail[1];
-            my $c = $tail[2];
+            my ($a, $b, $c);
+            unless $code.defined {
+                $tail.munch($tail.elems - 3) if $tail.elems > 3;
+                $a = $tail[0];
+                $b = $tail[1];
+                $c = $tail[2];
+            }
             if $code.defined { }
             elsif $tail.grep({ $_ ~~ Numeric}).elems != $tail.elems {
                 # non-numeric