Change 33687 by [EMAIL PROTECTED] on 2008/04/15 13:15:56
Subject: invalid cop_free of nullified cop. How to fix?
From: "Reini Urban" <[EMAIL PROTECTED]>
Date: Tue, 15 Apr 2008 14:09:11 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/op.c#1000 edit
Differences ...
==== //depot/perl/op.c#1000 (text) ====
Index: perl/op.c
--- perl/op.c#999~33679~ 2008-04-14 08:55:28.000000000 -0700
+++ perl/op.c 2008-04-15 06:15:56.000000000 -0700
@@ -495,8 +495,6 @@
op_free(kid);
}
}
- if (type == OP_NULL)
- type = (OPCODE)o->op_targ;
#ifdef PERL_DEBUG_READONLY_OPS
Slab_to_rw(o);
@@ -508,6 +506,9 @@
cop_free((COP*)o);
}
+ if (type == OP_NULL)
+ type = (OPCODE)o->op_targ;
+
op_clear(o);
if (o->op_latefree) {
o->op_latefreed = 1;
End of Patch.
