Change 33695 by [EMAIL PROTECTED] on 2008/04/15 15:54:31
Call cop_free on nullified cops too
(this is a followup to 33687)
Affected files ...
... //depot/perl/op.c#1001 edit
Differences ...
==== //depot/perl/op.c#1001 (text) ====
Index: perl/op.c
--- perl/op.c#1000~33687~ 2008-04-15 06:15:56.000000000 -0700
+++ perl/op.c 2008-04-15 08:54:31.000000000 -0700
@@ -502,7 +502,10 @@
/* COP* is not cleared by op_clear() so that we may track line
* numbers etc even after null() */
- if (type == OP_NEXTSTATE || type == OP_DBSTATE) {
+ if (type == OP_NEXTSTATE || type == OP_DBSTATE
+ || (type == OP_NULL /* the COP might have been null'ed */
+ && ((OPCODE)o->op_targ == OP_NEXTSTATE
+ || (OPCODE)o->op_targ == OP_DBSTATE))) {
cop_free((COP*)o);
}
End of Patch.
