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 (file)
--- 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 */