Change 21469 by [EMAIL PROTECTED] on 2003/10/16 19:31:19
Duplicate 19423 (pathological hashes too easy) into share_hek_flags
(as suggested by Jan Dubois)
Affected files ...
... //depot/perl/hv.c#138 edit
Differences ...
==== //depot/perl/hv.c#138 (text) ====
Index: perl/hv.c
--- perl/hv.c#137~21446~ Tue Oct 14 11:45:39 2003
+++ perl/hv.c Thu Oct 16 12:31:19 2003
@@ -2288,7 +2288,7 @@
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);
}
}
End of Patch.
