summaryrefslogtreecommitdiff
path: root/vms
diff options
context:
space:
mode:
authorPeter Prymmer <PPrymmer@factset.com>2002-05-13 13:37:28 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2002-05-13 23:06:31 +0000
commit488f41861ce50bf733b1e60ebbef8390e01d3366 (patch)
treedcd411f3d90aaf7e3fcddf42877b170afc3960ce /vms
parentccc70a53db4bdfe62527deb9e4c30f19764f9afb (diff)
downloadperl-488f41861ce50bf733b1e60ebbef8390e01d3366.tar.gz
Re: unsigned char hashes (Re: perl@16539)
Message-ID: <OFA6169DE6.9ED4C891-ON85256BB8.00767EB7@55.25.11> p4raw-id: //depot/perl@16585
Diffstat (limited to 'vms')
-rw-r--r--vms/vms.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/vms.c b/vms/vms.c
index 146d8a630c..a5460766b3 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);