From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 2 Jan 2002 16:09:43 +0000 (+0000)
Subject: Avoid un-init perl_debug_pad in clones
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=45ef2ede190b88887a0dfeb6502000b5ea6f0174;p=p5sagit%2Fp5-mst-13.2.git

Avoid un-init perl_debug_pad in clones

p4raw-id: //depot/perlio@14017
---

diff --git a/sv.c b/sv.c
index 1dd95d8..ba51738 100644
--- a/sv.c
+++ b/sv.c
@@ -9680,6 +9680,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_savestack = 0;
     PL_retstack = 0;
     PL_sig_pending = 0;
+    Zero(&PL_debug_pad, 1, struct perl_debug_pad); 
 #  else	/* !DEBUGGING */
     Zero(my_perl, 1, PerlInterpreter);
 #  endif	/* DEBUGGING */