summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2005-04-19 23:31:52 +0000
committerDave Mitchell <davem@fdisolutions.com>2005-04-19 23:31:52 +0000
commit4d4948808560f73c9be361930114c89552276998 (patch)
tree90f3ed9d4e4359c14773f9923785ba24c7bbcd21
parentd2e562908ab20a1b4a30495729ed42b9cea03ed7 (diff)
downloadperl-4d4948808560f73c9be361930114c89552276998.tar.gz
DEBUG_LEAKING_SCALARS could use the value of a freed PL_op
p4raw-id: //depot/perl@24255
-rw-r--r--op.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/op.c b/op.c
index a226aadf4a..82642326b2 100644
--- a/op.c
+++ b/op.c
@@ -313,6 +313,10 @@ Perl_op_free(pTHX_ OP *o)
op_clear(o);
FreeOp(o);
+#ifdef DEBUG_LEAKING_SCALARS
+ if (PL_op == o)
+ PL_op = Nullop;
+#endif
}
void