Forgotten from #16656.

p4raw-id: //depot/perl@16666

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 0bae084..83c9c4a 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -575,7 +575,7 @@ hash(sv)
        U32 hash = 0;
        char hexhash[19]; /* must fit "0xffffffffffffffff" plus trailing \0 */
        s = SvPV(sv, len);
-       PERL_HASH(hash, (U8*)s, len);
+       PERL_HASH(hash, s, len);
        sprintf(hexhash, "0x%"UVxf, (UV)hash);
        ST(0) = sv_2mortal(newSVpv(hexhash, 0));