Prevent infinite recurse on bare "zip"; fixes RT #119337

rakudo · Aug 17, 2014 · 7752c57 · 7752c57
1 parent b52ef05
commit 7752c57
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/core/LoL.pm b/src/core/LoL.pm
@@ -65,6 +65,7 @@ sub infix:<X>(|lol) {
 
 sub infix:<Z>(|lol) {
     my $arity = lol.elems;
+    return if $arity == 0;
     my @l = eager for ^$arity -> $i {
             my \elem = lol[$i];         # can't use mapping here, mustn't flatten