Change 11415 by nick@camel-linux on 2001/07/20 06:35:11
Subject: [PATCH] defer op_seq allocation
From: Abhijit Menon-Sen <[EMAIL PROTECTED]>
Date: Thu, 19 Jul 2001 22:12:24 +0530
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/op.c#415 edit
Differences ...
==== //depot/perl/op.c#415 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Fri Jul 20 00:45:05 2001
+++ perl/op.c Fri Jul 20 00:45:05 2001
@@ -6779,7 +6779,15 @@
{
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:
End of Patch.
