Re: unsigned char hashes (Re: perl@16539)

Message-ID: <OFA6169DE6.9ED4C891-ON85256BB8.00767EB7@55.25.11>

p4raw-id: //depot/perl@16585

diff --git a/vms/vms.c b/vms/vms.c
index 146d8a6..a546076 100644 (file)
--- 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,key,keylen);
+      PERL_HASH(hash,(U8*)key,keylen);
       sv = newSVpvn(cp2,cp1 - cp2 + 1);
       SvTAINTED_on(sv);
       hv_store(envhv,key,keylen,sv,hash);