This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
More hacking in util.c's ifdef jungle following 28844 to avoid
authorCraig A. Berry <craigberry@mac.com>
Fri, 15 Sep 2006 00:39:32 +0000 (00:39 +0000)
committerCraig A. Berry <craigberry@mac.com>
Fri, 15 Sep 2006 00:39:32 +0000 (00:39 +0000)
duplicate definition of Perl_my_setenv on VMS.

p4raw-id: //depot/perl@28848

util.c

diff --git a/util.c b/util.c
index da53fa4..83adde1 100644 (file)
--- a/util.c
+++ b/util.c
@@ -1557,7 +1557,6 @@ Perl_new_warnings_bitfield(pTHX_ STRLEN *buffer, const char *const bits,
    *(s+(nlen+1+vlen)) = '\0'
 
 #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)
 {
@@ -1660,7 +1659,7 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val)
   }
 }
 
-#else /* defined(USE_ENVIRON_ARRAY) && !defined(WIN32) && !defined(NETWARE)*/
+#elif !defined(VMS) /* VMS has my_setenv in vms.c */
 
 void
 Perl_my_setenv(pTHX_ const char *nam, const char *val)