This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PL_debug_pad wasn't initialized to zeroes which broke
[perl5.git] / sv.c
diff --git a/sv.c b/sv.c
index ce4b8bf..193c9fb 100644 (file)
--- 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 */