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

[cal at macports.org]

Revision: 107550
          https://trac.macports.org/changeset/107550
Author:   cal at macports.org
Date:     2013-07-02 16:59:46 -0700 (Tue, 02 Jul 2013)
Log Message:
-----------
porttrace: manage sandbox in a list

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

Modified: trunk/base/src/port1.0/porttrace.tcl
===================================================================
--- trunk/base/src/port1.0/porttrace.tcl	2013-07-02 21:48:24 UTC (rev 107549)
+++ trunk/base/src/port1.0/porttrace.tcl	2013-07-02 23:59:46 UTC (rev 107550)
@@ -80,13 +80,34 @@
             # /Library/Caches/com.apple.Xcode
             # $CCACHE_DIR
             # $HOMEDIR/.ccache
-            set trace_sandboxbounds "/tmp:/private/tmp:/var/tmp:/private/var/tmp:/var/empty:/private/var/empty:/dev:/etc/passwd:/etc/groups:/etc/localtime:/Library/Caches/com.apple.Xcode:$env(HOME)/.ccache:${workpath}:${portpath}:${distpath}"
+            set trace_sandbox [list]
+            lappend trace_sandbox $workpath
+            lappend trace_sandbox $portpath
+            lappend trace_sandbox $distpath
+            lappend trace_sandbox "/tmp"
+            lappend trace_sandbox "/private/tmp"
+            lappend trace_sandbox "/var/tmp"
+            lappend trace_sandbox "/private/var/tmp"
+            lappend trace_sandbox "/var/empty"
+            lappend trace_sandbox "/private/var/empty"
+            lappend trace_sandbox "/dev"
+            lappend trace_sandbox "/etc/passwd"
+            lappend trace_sandbox "/etc/groups"
+            lappend trace_sandbox "/etc/localtime"
+            lappend trace_sandbox "/Library/Caches/com.apple.Xcode"
+            lappend trace_sandbox "$env(HOME)/.ccache"
             if {[info exists env(TMPDIR)]} {
-                set trace_sandboxbounds "${trace_sandboxbounds}:$env(TMPDIR)"
+                lappend trace_sandbox $env(TMPDIR)
             }
             if {[info exists env(CCACHE_DIR)]} {
-                set trace_sandboxbounds "${trace_sandboxbounds}:$env(CCACHE_DIR)"
+                lappend trace_sandbox $env(CCACHE_DIR)
             }
+
+            ui_debug "Tracelib Sandbox is:"
+            foreach sandbox $trace_sandbox {
+                ui_debug "\t$sandbox"
+            }
+            set trace_sandboxbounds [join $trace_sandbox :]
             tracelib setsandbox $trace_sandboxbounds
         }
     }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130702/62096fc4/attachment.html>