Explicit casts due to #16542.

p4raw-id: //depot/perl@16547

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 225ee06838..7e6bc2d7e4 100644
--- a/sv.c
+++ b/sv.c
@@ -6336,7 +6336,7 @@ Perl_newSVpvn_share(pTHX_ const char *src, I32 len, U32 hash)
 	len = tmplen;
     }
     if (!hash)
-	PERL_HASH(hash, src, len);
+	PERL_HASH(hash, (U8*)src, len);
     new_SV(sv);
     sv_upgrade(sv, SVt_PVIV);
     SvPVX(sv) = sharepvn(src, is_utf8?-len:len, hash);