summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-01-06 20:38:34 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-01-06 20:38:34 +0000
commit25596c822ec76c369036d51b5e91fcdfb4acdb05 (patch)
tree298f71c1287d25d0dde46460bb3c63968d379d2d /sv.c
parent8f4e3b9290c27c4493d67f5158bc441a2e68f00a (diff)
downloadperl-25596c822ec76c369036d51b5e91fcdfb4acdb05.tar.gz
PL_debug_pad wasn't initialized to zeroes which broke
ithreads + DEBUGGING. p4raw-id: //depot/perl@14108
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index ce4b8bf124..193c9fb0f5 100644
--- a/sv.c
+++ b/sv.c
@@ -9682,7 +9682,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);
+ Zero(&PL_debug_pad, 1, struct perl_debug_pad);
# else /* !DEBUGGING */
Zero(my_perl, 1, PerlInterpreter);
# endif /* DEBUGGING */
@@ -9712,6 +9712,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 */