From: Steve Hay <SteveHay@planit.com>
Date: Tue, 28 Jun 2005 07:40:01 +0000 (+0000)
Subject: Stop "suspicious pointer conversion" warning following change 24997
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a15d23f8e296983d6cc54b5377bc89335c45e016;p=p5sagit%2Fp5-mst-13.2.git

Stop "suspicious pointer conversion" warning following change 24997

p4raw-id: //depot/perl@25001
---

diff --git a/hv.c b/hv.c
index f4c5422..42c5522 100644
--- a/hv.c
+++ b/hv.c
@@ -542,7 +542,7 @@ S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
 #ifdef ENV_IS_CASELESS
 	    else if (mg_find((SV*)hv, PERL_MAGIC_env)) {
 		/* XXX This code isn't UTF8 clean.  */
-		char * const keysave = key;
+		char * const keysave = (char * const)key;
 		/* Will need to free this, so set FREEKEY flag.  */
 		key = savepvn(key,klen);
 		key = (const char*)strupr((char*)key);
@@ -631,7 +631,7 @@ S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
     }
 
     if (is_utf8) {
-	char * const keysave = key;
+	char * const keysave = (char * const)key;
 	key = (char*)bytes_from_utf8((U8*)key, &klen, &is_utf8);
         if (is_utf8)
 	    flags |= HVhek_UTF8;