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 (file)
--- 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);