From: Adrian M. Enache <enache@rdslink.ro>
Date: Tue, 9 Dec 2003 03:26:16 +0000 (+0000)
Subject: temporary fix to avoid t/op/tie.t failures on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e2344ada78d8742c0023d545c1baed6597bae39;p=p5sagit%2Fp5-mst-13.2.git

temporary fix to avoid t/op/tie.t failures on Win32

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

diff --git a/hv.c b/hv.c
index ab1786d..78b1f9d 100644
--- a/hv.c
+++ b/hv.c
@@ -904,7 +904,7 @@ S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
 		}
 	    }
 #ifdef ENV_IS_CASELESS
-	    else if (mg_find((SV*)hv, PERL_MAGIC_env)) {
+	    if (mg_find((SV*)hv, PERL_MAGIC_env)) {
 		/* XXX This code isn't UTF8 clean.  */
 		keysv = sv_2mortal(newSVpvn(key,klen));
 		key = strupr(SvPVX(keysv));