From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 17 May 2002 21:46:04 +0000 (+0000)
Subject: Forgotten from #16656.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c32d3395d8a5dd07f0135fb8e4c241bc6767894c;p=p5sagit%2Fp5-mst-13.2.git

Forgotten from #16656.

p4raw-id: //depot/perl@16666
---

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 0bae084..83c9c4a 100644
--- 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));