Sarathy pointed out that instead of zeroing heap

it is more prudent to poison it.

p4raw-id: //depot/perl@16688

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index ad91f01674..3e7b6d3232 100644
--- a/util.c
+++ b/util.c
@@ -3121,7 +3121,7 @@ Perl_new_struct_thread(pTHX_ struct perl_thread *t)
     SvCUR_set(sv, sizeof(struct perl_thread));
     thr = (Thread) SvPVX(sv);
 #ifdef DEBUGGING
-    memset(thr, 0xab, sizeof(struct perl_thread));
+    Poison(thr, 1, struct perl_thread);
     PL_markstack = 0;
     PL_scopestack = 0;
     PL_savestack = 0;