summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorGisle Aas <gisle@aas.no>1998-07-04 03:04:08 +0200
committerGurusamy Sarathy <gsar@cpan.org>1998-07-04 05:46:42 +0000
commit88c10423dc85c85e982181ab70d075586649d9c5 (patch)
tree0786b4c9b7390da0c87e4b645ef68c51f208ffbf /perl.c
parent973f34e4d4d339d8f021421e50426f6eadc5f13a (diff)
downloadperl-88c10423dc85c85e982181ab70d075586649d9c5.tar.gz
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
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c3
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);