From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 16 Oct 2003 19:31:19 +0000 (+0000)
Subject: Duplicate 19423 (pathological hashes too easy) into share_hek_flags
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4c9cc5953a3992eecff824aeaacb5b7670e2db46;p=p5sagit%2Fp5-mst-13.2.git

Duplicate 19423 (pathological hashes too easy) into share_hek_flags
(as suggested by Jan Dubois)

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

diff --git a/hv.c b/hv.c
index 5e2a385..965b6ae 100644
--- a/hv.c
+++ b/hv.c
@@ -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);
 	}
     }