Skip to content

Instantly share code, notes, and snippets.

@diakopter
Created May 30, 2012 20:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save diakopter/2838671 to your computer and use it in GitHub Desktop.
Save diakopter/2838671 to your computer and use it in GitHub Desktop.
diff --git a/src/core/operators.pm b/src/core/operators.pm
index edc4e93..7d6d44c
--- a/src/core/operators.pm
+++ b/src/core/operators.pm
@@ -103,7 +103,7 @@ sub SEQUENCE($left, $right, :$exclude_end) {
take $value;
}
unless $stop {
- $tail.munch($tail.elems - 3) if $tail.elems > 3;
+ $tail.munch($tail.elems - 3) if $tail.elems > 3 && !$code.defined;
my $a = $tail[0];
my $b = $tail[1];
my $c = $tail[2];
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment