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/gv.c b/gv.c
index 6fb877de6c..aaae2a2f53 100644
--- a/gv.c
+++ b/gv.c
@@ -120,7 +120,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
 	    SvLEN_set(gv, 0);
 	    SvPOK_off(gv);
 	} else
-	    Safefree(SvPVX_const(gv));
+	    Safefree(SvPVX_mutable(gv));
     }
     Newz(602, gp, 1, GP);
     GvGP(gv) = gp_ref(gp);