The optree builder was looping when constructing the ops

for a map/grep block containing a while(1).
(Bug reported by Pixel.)

p4raw-id: //depot/perl@22667

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index b38c892927..46cc07b029 100644
--- 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;