Perl_hv_fill(), count empty chains down, rather than used chains up.

The assumption is that most chains of a hash are in use.

Suggestion and initial patch by Ruslan Zakirov.

1 files changed, 5 insertions, 4 deletions

diff --git a/hv.c b/hv.c
index 244feb63ca..1ff73b0c49 100644
--- a/hv.c
+++ b/hv.c
@@ -1880,12 +1880,13 @@ Perl_hv_fill(pTHX_ HV const *const hv)
     PERL_ARGS_ASSERT_HV_FILL;
 
     if (ents) {
-	HE *const *const end = ents + HvMAX(hv);
+	HE *const *const last = ents + HvMAX(hv);
+	count = last + 1 - ents;
 
 	do {
-	    if (*ents)
-		++count;
-	} while (++ents <= end);
+	    if (!*ents)
+		--count;
+	} while (++ents <= last);
     }
     return count;
 }