From: Yves Orton <demerphq@gmail.com>
Date: Thu, 14 Sep 2006 14:28:16 +0000 (+0200)
Subject: Re: Re: [PATCH] C++: Solaris CC now compiles "perl"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02cf7203606dabc9b940339b5a1f2d3a60dba816;p=p5sagit%2Fp5-mst-13.2.git

Re: Re: [PATCH] C++: Solaris CC now compiles "perl"
Message-ID: <9b18b3110609140528x49e063aay724169d7f1e49531@mail.gmail.com>

p4raw-id: //depot/perl@28844
---

diff --git a/util.c b/util.c
index 44ff36f..88e7812 100644
--- a/util.c
+++ b/util.c
@@ -1556,7 +1556,7 @@ Perl_new_warnings_bitfield(pTHX_ STRLEN *buffer, const char *const bits,
    Copy(val, s+(nlen+1), vlen, char); \
    *(s+(nlen+1+vlen)) = '\0'
 
-#ifdef USE_ENVIRON_ARRAY
+#if defined(USE_ENVIRON_ARRAY) && !defined(WIN32) && !defined(NETWARE)
 /* VMS' my_setenv() is in vms.c */
 void
 Perl_my_setenv(pTHX_ const char *nam, const char *val)
@@ -1617,7 +1617,7 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val)
 	    my_setenv_format(environ[i], nam, nlen, val, vlen);
 	}
     } else {
-# endif
+#endif
 #   if defined(__CYGWIN__) || defined(EPOC) || defined(__SYMBIAN32__) || defined(__riscos__)
 #       if defined(HAS_UNSETENV)
         if (val == NULL) {
@@ -1660,7 +1660,7 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val)
   }
 }
 
-#else /* USE_ENVIRON_ARRAY */
+#else /* defined(USE_ENVIRON_ARRAY) && !defined(WIN32) && !defined(NETWARE)*/
 
 void
 Perl_my_setenv(pTHX_ const char *nam, const char *val)
@@ -1688,7 +1688,7 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val)
     }
 }
 
-#endif /* USE_ENVIRON_ARRAY */
+#endif /* defined(USE_ENVIRON_ARRAY) && !defined(WIN32) && !defined(NETWARE) */
 
 #if !defined(VMS)