From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 14 Jul 2012 21:16:42 +0000 (-0700)
Subject: op.c: ck_grep does not need to call listkids
X-Git-Tag: upstream/5.20.0~6072
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=09fe0e743e8130220807fdb2c6fc2817bcd6433c;p=platform%2Fupstream%2Fperl.git

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.
---

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;