diff options
author | Nicholas Clark <nick@ccl4.org> | 2003-10-16 19:31:19 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2003-10-16 19:31:19 +0000 |
commit | 4c9cc5953a3992eecff824aeaacb5b7670e2db46 (patch) | |
tree | 56301bf97cf98aedf9c3cb1a34d8933ccf6df4ac /hv.c | |
parent | 29e973714a981ba7ad514bfe1fab7d4003a07033 (diff) | |
download | perl-4c9cc5953a3992eecff824aeaacb5b7670e2db46.tar.gz |
Duplicate 19423 (pathological hashes too easy) into share_hek_flags
(as suggested by Jan Dubois)
p4raw-id: //depot/perl@21469
Diffstat (limited to 'hv.c')
-rw-r--r-- | hv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2288,7 +2288,7 @@ S_share_hek_flags(pTHX_ const char *str, I32 len, register U32 hash, int flags) xhv->xhv_keys++; /* HvKEYS(hv)++ */ if (i) { /* initial entry? */ xhv->xhv_fill++; /* HvFILL(hv)++ */ - if (xhv->xhv_keys > (IV)xhv->xhv_max /* HvKEYS(hv) > HvMAX(hv) */) + } else if (xhv->xhv_keys > (IV)xhv->xhv_max /* HvKEYS(hv) > HvMAX(hv) */) { hsplit(PL_strtab); } } |