Changeset 39016 for trunk/base/src

Timestamp:

2008-08-06 00:42:34 (4 months ago)

Author:

afb@…

Message:

work around Leopard Tcl bugs (#16010)

Files:

• trunk/base/src/macports1.0/macports.tcl (modified) (1 diff)

trunk/base/src/macports1.0/macports.tcl

@@ -697 +697 @@
     } else {
         return -code error "Library directory '$libpath' must exist"
+    }
+
+    # unset environment an extra time, to work around bugs in Leopard Tcl
+    foreach envkey [array names env] {
+        if {[lsearch $keepenvkeys $envkey] == -1} {
+            unsetenv $envkey
+        }
     }
 }