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

p4raw-id: //depot/perl@21872

1 files changed, 1 insertions, 1 deletions

diff --git a/hv.c b/hv.c
index ab1786d77b..78b1f9de2a 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));