From: Simon Cozens <simon@netthink.co.uk>
Date: Sun, 7 Jan 2001 17:57:07 +0000 (+0000)
Subject: environ nit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5acaa6ec689aa2e39b6ec028d286e5561be1d297;p=p5sagit%2Fp5-mst-13.2.git

environ nit
Message-ID: <20010107175707.A2013@pembro26.pmb.ox.ac.uk>

Use environ only if we have it.

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

diff --git a/mg.c b/mg.c
index 206c0ce..99600a4 100644
--- a/mg.c
+++ b/mg.c
@@ -929,6 +929,7 @@ Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
     }
     FreeEnvironmentStrings(envv);
 #	else
+#ifdef USE_ENVIRON_ARRAY
 #	    ifndef PERL_USE_SAFE_PUTENV
     I32 i;
 
@@ -941,6 +942,7 @@ Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
 
     environ[0] = Nullch;
 
+#endif /* USE_ENVIRON_ARRAY */
 #	endif /* WIN32 */
 #   endif /* PERL_IMPLICIT_SYS */
 #endif /* VMS */