From: bstrand@switchmanagement.com <bstrand@switchmanagement.com>
Date: Tue, 12 Apr 2005 19:12:58 +0000 (+0000)
Subject: Fix for:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d09ad8562457f47cb9b12ff500929b3f4d67a07e;p=p5sagit%2Fp5-mst-13.2.git

Fix for:
[perl #34934] perl 5.8.5 on x86 and x86-64 hang at compile-time
From: bstrand@switchmanagement.com (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-34934-110595.15.9181274318682@perl.org>

This syntax error now produces a panic message.

p4raw-id: //depot/perl@24237
---

diff --git a/op.c b/op.c
index 3bd6648..747f1c5 100644
--- a/op.c
+++ b/op.c
@@ -5575,6 +5575,8 @@ Perl_ck_grep(pTHX_ OP *o)
 	OP* k;
 	o = ck_sort(o);
         kid = cLISTOPo->op_first->op_sibling;
+	if (!cUNOPx(kid)->op_next)
+	    Perl_croak(aTHX_ "panic: ck_grep");
 	for (k = cUNOPx(kid)->op_first; k; k = k->op_next) {
 	    kid = k;
 	}