From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 26 Oct 2001 13:43:03 +0000 (+0000)
Subject: USE_ENVIRON_ARRAY instead of !MACOS_TRADITIONAL,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=052c2dc611def1a3ec584b4e83f4223d2037b99d;p=p5sagit%2Fp5-mst-13.2.git

USE_ENVIRON_ARRAY instead of !MACOS_TRADITIONAL,
as suggested by Sarathy.

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

diff --git a/mg.c b/mg.c
index 9b91777..793035d 100644
--- a/mg.c
+++ b/mg.c
@@ -962,7 +962,7 @@ Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
 #   if defined(PERL_IMPLICIT_SYS) || defined(WIN32)
     PerlEnv_clearenv();
 #   else
-#if !defined(MACOS_TRADITIONAL)
+#       ifdef USE_ENVIRON_ARRAY
 #	    ifndef PERL_USE_SAFE_PUTENV
     I32 i;
 
@@ -975,9 +975,9 @@ Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
 
     environ[0] = Nullch;
 
-#endif /* !defined(MACOS_TRADITIONAL) */
-#   endif /* PERL_IMPLICIT_SYS */
-#endif /* VMS */
+#       endif /* USE_ENVIRON_ARRAY */
+#   endif /* PERL_IMPLICIT_SYS || WIN32 */
+#endif /* VMS || EPC */
     return 0;
 }