projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
d_getservbyname_r undef up to at least OpenBSD 3.5
[p5sagit/p5-mst-13.2.git]
/
op.c
diff --git
a/op.c
b/op.c
index
b38c892
..
46cc07b
100644
(file)
--- a/
op.c
+++ b/
op.c
@@
-5430,7
+5430,7
@@
Perl_ck_grep(pTHX_ OP *o)
OP* k;
o = ck_sort(o);
kid = cLISTOPo->op_first->op_sibling;
- for (k = cLISTOPo->op_first->op_sibling->op_next; k; k = k->op_next) {
+ for (k = cUNOPx(kid)->op_first; k; k = k->op_next) {
kid = k;
}
kid->op_next = (OP*)gwop;