summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2002-01-02 16:09:43 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2002-01-02 16:09:43 +0000
commit45ef2ede190b88887a0dfeb6502000b5ea6f0174 (patch)
tree67ae78647688ccf80e5a5b5b0f172eff0fcc2697
parenta518c9fdaad2e222181fbe8a26d5e23ab0b38d16 (diff)
downloadperl-45ef2ede190b88887a0dfeb6502000b5ea6f0174.tar.gz
Avoid un-init perl_debug_pad in clones
p4raw-id: //depot/perlio@14017
-rw-r--r--sv.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index 1dd95d8578..ba51738c28 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 */