[52306] trunk/base/src/port1.0/porttrace.tcl

jmr at macports.org jmr at macports.org
Sat Jun 13 15:33:35 PDT 2009


Revision: 52306
          http://trac.macports.org/changeset/52306
Author:   jmr at macports.org
Date:     2009-06-13 15:33:29 -0700 (Sat, 13 Jun 2009)
Log Message:
-----------
use unsetenv in porttrace (for Leopard Tcl env bug)

Modified Paths:
--------------
    trunk/base/src/port1.0/porttrace.tcl

Modified: trunk/base/src/port1.0/porttrace.tcl
===================================================================
--- trunk/base/src/port1.0/porttrace.tcl	2009-06-13 22:09:16 UTC (rev 52305)
+++ trunk/base/src/port1.0/porttrace.tcl	2009-06-13 22:33:29 UTC (rev 52306)
@@ -104,6 +104,7 @@
     global env
     if [info exists env(DARWINTRACE_SANDBOX_BOUNDS)] {
         unset env(DARWINTRACE_SANDBOX_BOUNDS)
+        unsetenv DARWINTRACE_SANDBOX_BOUNDS
     }
 }
 
@@ -147,11 +148,9 @@
     global os.platform
     if {${os.platform} == "darwin"} {
         global env trace_fifo
-        unset env(DYLD_INSERT_LIBRARIES)
-        unset env(DYLD_FORCE_FLAT_NAMESPACE)
-        unset env(DARWINTRACE_LOG)
-        if [info exists env(DARWINTRACE_SANDBOX_BOUNDS)] {
-            unset env(DARWINTRACE_SANDBOX_BOUNDS)
+        foreach var {DYLD_INSERT_LIBRARIES DYLD_FORCE_FLAT_NAMESPACE DARWINTRACE_LOG DARWINTRACE_SANDBOX_BOUNDS} {
+            array unset env $var
+            unsetenv $var
         }
 
         #kill socket
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090613/94c1ef56/attachment.html>


More information about the macports-changes mailing list