From: Doug MacEachern <dougm@covalent.net>
Date: Mon, 18 Jun 2001 16:24:22 +0000 (-0700)
Subject: PL_nullstash + perl_clone()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=771208afd937a008c2ced72cfe214c2dbc98985e;p=p5sagit%2Fp5-mst-13.2.git

PL_nullstash + perl_clone()
Message-ID: <Pine.LNX.4.21.0106181621040.11974-100000@mako.covalent.net>

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

diff --git a/sv.c b/sv.c
index 42a995c..0bae3ce 100644
--- a/sv.c
+++ b/sv.c
@@ -9680,6 +9680,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     /* symbol tables */
     PL_defstash		= hv_dup_inc(proto_perl->Tdefstash);
     PL_curstash		= hv_dup(proto_perl->Tcurstash);
+    PL_nullstash       = hv_dup(proto_perl->Inullstash);
     PL_debstash		= hv_dup(proto_perl->Idebstash);
     PL_globalstash	= hv_dup(proto_perl->Iglobalstash);
     PL_curstname	= sv_dup_inc(proto_perl->Icurstname);