projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b159ff9
)
op.c: ck_grep does not need to call listkids
author
Father Chrysostomos
<sprout@cpan.org>
Sat, 14 Jul 2012 21:16:42 +0000
(14:16 -0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Sun, 15 Jul 2012 00:35:33 +0000
(17:35 -0700)
It calls ck_fun, which applies list context to all the arguments,
since grepstart and mapstart have an L in regen/opcodes.
op.c
patch
|
blob
|
history
diff --git
a/op.c
b/op.c
index
803c627
..
347d0f4
100644
(file)
--- 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;