PERL_HASH() casting games so that our hashed data is "unsigned

char" but old code using just a "char" doesn't need changes.
(The change is using a temporary pointer instead of a direct
cast to unsigned char* which would blindly cast anything,
not just char pointers.)  (The problem arose in MacOS Classic,
as seen by Pudge, the cure by Nicholas Clark.)

p4raw-id: //depot/perl@16656

1 files changed, 1 insertions, 1 deletions

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