X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/2fff5797d3953494057797f7669b69425e76edcc..553215cca7b3b92e1c96ef45917ee18dc7446644:/hv.c

diff --git a/hv.c b/hv.c
index 6476f51..916b64b 100644
--- a/hv.c
+++ b/hv.c
@@ -1844,6 +1844,11 @@ Perl_hv_fill(pTHX_ HV const *const hv)
 
     PERL_ARGS_ASSERT_HV_FILL;
 
+    /* No keys implies no buckets used.
+       One key can only possibly mean one bucket used.  */
+    if (HvTOTALKEYS(hv) < 2)
+        return HvTOTALKEYS(hv);
+
     if (ents) {
 	HE *const *const last = ents + HvMAX(hv);
 	count = last + 1 - ents;