summaryrefslogtreecommitdiff
path: root/hv.c
diff options
context:
space:
mode:
authorSteffen Mueller <smueller@cpan.org>2017-02-03 09:06:41 +0100
committerSteffen Mueller <smueller@cpan.org>2017-02-03 09:25:55 +0100
commit1186f82119d5270455d8831744d4f40a4ccbb222 (patch)
tree2c1f51da84c843e838ca3c35919b48c4257357a5 /hv.c
parentc9470cf1abc4cc21f63ba5222f7860ec1175adfc (diff)
downloadperl-1186f82119d5270455d8831744d4f40a4ccbb222.tar.gz
HvTOTALKEYS() takes a HV* as argument
Incidentally, it currently works on SV *'s as well because there's an explicit cast after an SvANY. Let's not rely on that. This commit also removes a pointless const in a cast. Again. It takes an HV * as argument. Let's only change that if we have a strong reason to.
Diffstat (limited to 'hv.c')
-rw-r--r--hv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/hv.c b/hv.c
index e9d5375da4..efeadb7dad 100644
--- a/hv.c
+++ b/hv.c
@@ -990,7 +990,7 @@ Perl_hv_bucket_ratio(pTHX_ HV *hv)
}
sv = sv_newmortal();
- if (HvUSEDKEYS((const HV *)hv))
+ if (HvUSEDKEYS((HV *)hv))
Perl_sv_setpvf(aTHX_ sv, "%ld/%ld",
(long)HvFILL(hv), (long)HvMAX(hv) + 1);
else