From 09fe0e743e8130220807fdb2c6fc2817bcd6433c Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 14 Jul 2012 14:16:42 -0700
Subject: [PATCH] op.c: ck_grep does not need to call listkids

It calls ck_fun, which applies list context to all the arguments,
since grepstart and mapstart have an L in regen/opcodes.
---
 op.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/op.c b/op.c
index 803c627..347d0f4 100644
--- a/op.c
+++ b/op.c
@@ -8600,7 +8600,7 @@ Perl_ck_grep(pTHX_ OP *o)
     NewOp(1101, gwop, 1, LOGOP);
     gwop->op_type = type;
     gwop->op_ppaddr = PL_ppaddr[type];
-    gwop->op_first = listkids(o);
+    gwop->op_first = o;
     gwop->op_flags |= OPf_KIDS;
     gwop->op_other = LINKLIST(kid);
     kid->op_next = (OP*)gwop;
-- 
2.7.4