interpreter structure should be nulled under -DMULTIPLICITY

p4raw-id: //depot/perl@4678

diff --git a/perl.c b/perl.c
index 800e83b..8c7674f 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -94,6 +94,7 @@ perl_alloc(void)
     /* New() needs interpreter, so call malloc() instead */
     my_perl = (PerlInterpreter*)PerlMem_malloc(sizeof(PerlInterpreter));
     PERL_SET_INTERP(my_perl);
+    Zero(my_perl, 1, PerlInterpreter);
     return my_perl;
 }
 #endif /* PERL_IMPLICIT_SYS */