From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 20 May 1998 15:02:21 +0000 (+0000)
Subject: [win32] remove strupr() from perl.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=60ce6247fb34169ad0a0e9bbab7a376ec9f7f2ff;p=p5sagit%2Fp5-mst-13.2.git

[win32] remove strupr() from perl.c

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

diff --git a/perl.c b/perl.c
index e02786e..fe00dcf 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);