From: Peter Prymmer <PPrymmer@factset.com>
Date: Mon, 13 May 2002 17:37:28 +0000 (-0400)
Subject: Re: unsigned char hashes (Re: perl@16539)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=488f41861ce50bf733b1e60ebbef8390e01d3366;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);