Add a define PERL_POISON which tries to trip up anything accessing

freed or uninitialised memory. Currently only Poison()s freed
pointers.

p4raw-id: //depot/perl@24959

1 files changed, 1 insertions, 1 deletions

diff --git a/scope.c b/scope.c
index 7e2b129b04..e656ff9fdf 100644
--- a/scope.c
+++ b/scope.c
@@ -781,7 +781,7 @@ Perl_leave_scope(pTHX_ I32 base)
 	    ptr = SSPOPPTR;
 	    gv = (GV*)SSPOPPTR;
 	    if (SvPVX_const(gv) && SvLEN(gv) > 0) {
-		Safefree(SvPVX_const(gv));
+		Safefree(SvPVX_mutable(gv));
 	    }
 	    SvPV_set(gv, (char *)SSPOPPTR);
 	    SvCUR_set(gv, (STRLEN)SSPOPIV);