This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add patch preextend global string table, tweak for 512 entries
authorGisle Aas <gisle@aas.no>
Sat, 4 Jul 1998 01:04:08 +0000 (03:04 +0200)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 4 Jul 1998 05:46:42 +0000 (05:46 +0000)
Subject: Re: [PATCH] Re: perl5.004_69 core dump
Message-ID: <m3ra02v8nr.fsf@furu.g.aas.no>

p4raw-id: //depot/perl@1305

perl.c

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