1 files changed, 1 insertions, 2 deletions
diff --git a/perl.c b/perl.c
index 14357b716b..e2db42c84b 100644
--- a/perl.c
+++ b/perl.c
@@ -1859,8 +1859,7 @@ init_main_stash(void)
        It is properly deallocated in perl_destruct() */
     strtab = newHV();
     HvSHAREKEYS_off(strtab);			/* mandatory */
-    Newz(506,((XPVHV*)SvANY(strtab))->xhv_array,
-	 sizeof(HE*) * (((XPVHV*)SvANY(strtab))->xhv_max + 1), char);
+    hv_ksplit(strtab, 512);
     
     curstash = defstash = newHV();
     curstname = newSVpv("main",4);