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.

1 files changed, 1 insertions, 1 deletions

diff --git a/dump.c b/dump.c
index 9eb26bcc94..52b52cab08 100644
--- a/dump.c
+++ b/dump.c
@@ -1892,7 +1892,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
                              (UV)aux->xhv_aux_flags);
         }
 	Perl_dump_indent(aTHX_ level, file, "  ARRAY = 0x%" UVxf, PTR2UV(HvARRAY(sv)));
-	usedkeys = HvUSEDKEYS(sv);
+	usedkeys = HvUSEDKEYS(MUTABLE_HV(sv));
 	if (HvARRAY(sv) && usedkeys) {
 	    /* Show distribution of HEs in the ARRAY */
 	    int freq[200];