[win32] remove strupr() from perl.c

p4raw-id: //depot/win32/perl@1021

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index e02786ef0f..fe00dcf206 100644
--- a/perl.c
+++ b/perl.c
@@ -2429,7 +2429,7 @@ init_postdump_symbols(register int argc, register char **argv, register char **e
 	    if (!(s = strchr(*env,'=')))
 		continue;
 	    *s++ = '\0';
-#if defined(WIN32) || defined(MSDOS)
+#if defined(MSDOS)
 	    (void)strupr(*env);
 #endif
 	    sv = newSVpv(s--,0);