This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
temporary fix to avoid t/op/tie.t failures on Win32
authorAdrian M. Enache <enache@rdslink.ro>
Tue, 9 Dec 2003 03:26:16 +0000 (03:26 +0000)
committerEnache Adrian <enache@rdslink.ro>
Tue, 9 Dec 2003 03:26:16 +0000 (03:26 +0000)
p4raw-id: //depot/perl@21872

hv.c

diff --git a/hv.c b/hv.c
index ab1786d..78b1f9d 100644 (file)
--- 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));