Change 14108 by jhi@alpha on 2002/01/06 20:38:34
PL_debug_pad wasn't initialized to zeroes which broke
ithreads + DEBUGGING.
Affected files ...
.... //depot/perl/sv.c#504 edit
Differences ...
==== //depot/perl/sv.c#504 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Sun Jan 6 13:45:05 2002
+++ perl/sv.c Sun Jan 6 13:45:05 2002
@@ -9682,7 +9682,7 @@
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 @@
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 */
End of Patch.
