From: Abhijit Menon-Sen <ams@wiw.org>
Date: Thu, 19 Jul 2001 22:12:24 +0000 (+0530)
Subject: defer op_seq allocation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dad750121485da0e5d544b0581f7569bb424e5d3;p=p5sagit%2Fp5-mst-13.2.git

defer op_seq allocation
Message-Id:  <20010719221224.A13786@lustre.dyn.wiw.org>

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

diff --git a/op.c b/op.c
index 98239d9..33374e9 100644
--- a/op.c
+++ b/op.c
@@ -6779,7 +6779,15 @@ Perl_peep(pTHX_ register OP *o)
 	    {
 		PL_curcop = ((COP*)o);
 	    }
-	    goto nothin;
+	    /* XXX: We avoid setting op_seq here to prevent later calls
+	       to peep() from mistakenly concluding that optimisation
+	       has already occurred. This doesn't fix the real problem,
+	       though (See 20010220.007). AMS 20010719 */
+	    if (oldop && o->op_next) {
+		oldop->op_next = o->op_next;
+		continue;
+	    }
+	    break;
 	case OP_SCALAR:
 	case OP_LINESEQ:
 	case OP_SCOPE: