Perl_hv_placeholders_get() actually takes a const HV *hv.

p4raw-id: //depot/perl@34618

3 files changed, 4 insertions, 4 deletions

diff --git a/embed.fnc b/embed.fnc
index 78c4f19453..89630f6900 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1797,7 +1797,7 @@ poM	|void	|hv_kill_backrefs	|NN HV *hv
 #endif
 Apd	|void	|hv_clear_placeholders	|NN HV *hv
 ApoR	|I32*	|hv_placeholders_p	|NN HV *hv
-ApoR	|I32	|hv_placeholders_get	|NN HV *hv
+ApoR	|I32	|hv_placeholders_get	|NN const HV *hv
 Apo	|void	|hv_placeholders_set	|NN HV *hv|I32 ph
 
 p	|SV*	|magic_scalarpack|NN HV *hv|NN MAGIC *mg
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;
 
diff --git a/proto.h b/proto.h
index 0d7d9a4243..5f2600d033 100644
--- a/proto.h
+++ b/proto.h
@@ -6189,7 +6189,7 @@ PERL_CALLCONV I32*	Perl_hv_placeholders_p(pTHX_ HV *hv)
 #define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_P	\
 	assert(hv)
 
-PERL_CALLCONV I32	Perl_hv_placeholders_get(pTHX_ HV *hv)
+PERL_CALLCONV I32	Perl_hv_placeholders_get(pTHX_ const HV *hv)
 			__attribute__warn_unused_result__
 			__attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_GET	\