From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 6 Jul 2004 20:45:53 +0000 (+0000)
Subject: Stop ENV_IS_CASELESS hv.c picking up the wrong hash value from a
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b4f7dd5e1f209efbb2b0c869593cbad5c938b49;p=p5sagit%2Fp5-mst-13.2.git

Stop ENV_IS_CASELESS hv.c picking up the wrong hash value from a
shared string scalar.

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

diff --git a/hv.c b/hv.c
index ca945f6..54f2e54 100644
--- a/hv.c
+++ b/hv.c
@@ -505,6 +505,7 @@ S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
 		key = (const char*)strupr((char*)key);
 		is_utf8 = 0;
 		hash = 0;
+		keysv = 0;
 
 		if (flags & HVhek_FREEKEY) {
 		    Safefree(keysave);
@@ -547,6 +548,7 @@ S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
 		    key = (const char*)strupr((char*)key);
 		    is_utf8 = 0;
 		    hash = 0;
+		    keysv = 0;
 
 		    if (flags & HVhek_FREEKEY) {
 			Safefree(keysave);