[ create a new paste ] login | about

Link: http://codepad.org/wpyDibhD    [ raw code | fork ]

Plain Text, pasted on Mar 26:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
diff --git a/src/core/operators.pm b/src/core/operators.pm
index e3ba0aa..59aaeba 100644
--- a/src/core/operators.pm
+++ b/src/core/operators.pm
@@ -455,8 +455,7 @@ our multi sub infix:<Z>(Iterable $a-iterable, Iterable $b-iterable) {
         my $a = $ai.get;
         my $b = $bi.get;
         last if ($a ~~ EMPTY) || ($b ~~ EMPTY);
-        take $a;
-        take $b;
+        take [$a, $b, "OH HAI"];
     }
 }



Create a new paste based on this one


Comments: