diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-09-14 16:28:16 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-14 12:39:16 +0000 |
| commit | 02cf7203606dabc9b940339b5a1f2d3a60dba816 (patch) | |
| tree | 25102efb639120fb0d3e07ac1dbea690d8caab99 /util.c | |
| parent | 60f153dbff502bbba0af0d17c0358a2a047d68e6 (diff) | |
| download | perl-02cf7203606dabc9b940339b5a1f2d3a60dba816.tar.gz | |
Re: Re: [PATCH] C++: Solaris CC now compiles "perl"
Message-ID: <9b18b3110609140528x49e063aay724169d7f1e49531@mail.gmail.com>
p4raw-id: //depot/perl@28844
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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) |