Perl_hv_placeholders_get() actually takes a const HV *hv.

p4raw-id: //depot/perl@34618

1 files changed, 2 insertions, 2 deletions

diff --git a/hv.c b/hv.c
index 6aae9d410d..6418576361 100644
--- a/hv.c
+++ b/hv.c
@@ -2506,10 +2506,10 @@ Perl_hv_placeholders_p(pTHX_ HV *hv)
 
 
 I32
-Perl_hv_placeholders_get(pTHX_ HV *hv)
+Perl_hv_placeholders_get(pTHX_ const HV *hv)
 {
     dVAR;
-    MAGIC * const mg = mg_find((SV*)hv, PERL_MAGIC_rhash);
+    MAGIC * const mg = mg_find((const SV *)hv, PERL_MAGIC_rhash);
 
     PERL_ARGS_ASSERT_HV_PLACEHOLDERS_GET;