From: Gisle Aas <gisle@aas.no>
Date: Sat, 4 Jul 1998 01:04:08 +0000 (+0200)
Subject: add patch preextend global string table, tweak for 512 entries
X-Git-Tag: accepted/trunk/20130322.191538~37492
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=8fb9a439a71a5e6b7adf7c46052298d23dd9cab7;p=platform%2Fupstream%2Fperl.git

add patch preextend global string table, tweak for 512 entries
	Subject: Re: [PATCH] Re: perl5.004_69 core dump
	Message-ID: <m3ra02v8nr.fsf@furu.g.aas.no>

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

diff --git a/perl.c b/perl.c
index 14357b7..e2db42c 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);