From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 26 May 2005 12:27:47 +0000 (+0000)
Subject: We know how big the global string table will be, so use that
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4a9c09d5b30a93b6241aff3c9915e33e4e41eeb;p=p5sagit%2Fp5-mst-13.2.git

We know how big the global string table will be, so use that
information.

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

diff --git a/sv.c b/sv.c
index 74c05c8..297ddbe 100644
--- a/sv.c
+++ b/sv.c
@@ -11703,7 +11703,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     /* create (a non-shared!) shared string table */
     PL_strtab		= newHV();
     HvSHAREKEYS_off(PL_strtab);
-    hv_ksplit(PL_strtab, 512);
+    hv_ksplit(PL_strtab, HvTOTALKEYS(proto_perl->Istrtab));
     ptr_table_store(PL_ptr_table, proto_perl->Istrtab, PL_strtab);
 
     PL_compiling = proto_perl->Icompiling;