From 4e2344ada78d8742c0023d545c1baed6597bae39 Mon Sep 17 00:00:00 2001
From: "Adrian M. Enache" <enache@rdslink.ro>
Date: Tue, 9 Dec 2003 03:26:16 +0000
Subject: [PATCH] temporary fix to avoid t/op/tie.t failures on Win32

p4raw-id: //depot/perl@21872
---
 hv.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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