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, 7 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index b6c72e84cd..d39d3560f6 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -371,7 +371,14 @@ Perl_rxres_free(pTHX_ void **rsp)
     UV *p = (UV*)*rsp;
 
     if (p) {
+#ifdef PERL_POISON
+	void *tmp = INT2PTR(char*,*p);
+	Safefree(tmp);
+	if (*p)
+	    Poison(*p, 1, sizeof(*p));
+#else
 	Safefree(INT2PTR(char*,*p));
+#endif
 #ifdef PERL_OLD_COPY_ON_WRITE
 	if (p[1]) {
 	    SvREFCNT_dec (INT2PTR(SV*,p[1]));