From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 15 Sep 2006 00:39:32 +0000 (+0000)
Subject: More hacking in util.c's ifdef jungle following 28844 to avoid
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ccba5138c721ec441e594caee909f33438a87b7a;p=p5sagit%2Fp5-mst-13.2.git

More hacking in util.c's ifdef jungle following 28844 to avoid
duplicate definition of Perl_my_setenv on VMS.

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

diff --git a/util.c b/util.c
index da53fa4..83adde1 100644
--- 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)