This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
initialize the PL_xpvgv_[arena]root vars during clone
authorDave Mitchell <davem@fdisolutions.com>
Sat, 14 May 2005 15:11:30 +0000 (15:11 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sat, 14 May 2005 15:11:30 +0000 (15:11 +0000)
p4raw-id: //depot/perl@24467

sv.c

diff --git a/sv.c b/sv.c
index 2536594..3d4d5b2 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11741,6 +11741,8 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_xpvhv_root      = NULL;
     PL_xpvmg_arenaroot = NULL;
     PL_xpvmg_root      = NULL;
+    PL_xpvgv_arenaroot = NULL;
+    PL_xpvgv_root      = NULL;
     PL_xpvlv_arenaroot = NULL;
     PL_xpvlv_root      = NULL;
     PL_xpvbm_arenaroot = NULL;