From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 19 Apr 2005 23:31:52 +0000 (+0000)
Subject: DEBUG_LEAKING_SCALARS could use the value of a freed PL_op
X-Git-Tag: accepted/trunk/20130322.191538~20899
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4d4948808560f73c9be361930114c89552276998;p=platform%2Fupstream%2Fperl.git

DEBUG_LEAKING_SCALARS could use the value of a freed PL_op

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

diff --git a/op.c b/op.c
index a226aad..8264232 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