Every remaining (HV *) cast in *.c

p4raw-id: //depot/perl@34629

1 files changed, 1 insertions, 1 deletions

diff --git a/pad.c b/pad.c
index 9f6e764ced..16a539b1d0 100644
--- a/pad.c
+++ b/pad.c
@@ -367,7 +367,7 @@ Perl_pad_add_name(pTHX_ const char *name, HV* typestash, HV* ourstash, bool fake
     if (typestash) {
 	assert(SvTYPE(namesv) == SVt_PVMG);
 	SvPAD_TYPED_on(namesv);
-	SvSTASH_set(namesv, (HV*)SvREFCNT_inc_simple_NN((SV*)typestash));
+	SvSTASH_set(namesv, MUTABLE_HV(SvREFCNT_inc_simple_NN((SV*)typestash)));
     }
     if (ourstash) {
 	SvPAD_OUR_on(namesv);