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/vms/vms.c b/vms/vms.c
index a5460766b3..146d8a630c 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -587,7 +587,7 @@ prime_env_iter(void)
         Perl_warner(aTHX_ packWARN(WARN_INTERNAL),"Ill-formed message in prime_env_iter: |%s|",buf);
         continue;
       }
-      PERL_HASH(hash,(U8*)key,keylen);
+      PERL_HASH(hash,key,keylen);
       sv = newSVpvn(cp2,cp1 - cp2 + 1);
       SvTAINTED_on(sv);
       hv_store(envhv,key,keylen,sv,hash);