From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 10 Dec 1999 01:39:13 +0000 (+0000)
Subject: interpreter structure should be nulled under -DMULTIPLICITY
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dedcbb81b3c2f4f742df48d1d5918ae3c9eed4de;p=p5sagit%2Fp5-mst-13.2.git

interpreter structure should be nulled under -DMULTIPLICITY

p4raw-id: //depot/perl@4678
---

diff --git a/perl.c b/perl.c
index 800e83b..8c7674f 100644
--- 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 */