Changeset 98281

Timestamp:

Oct 1, 2012, 7:29:02 PM (12 years ago)

Author:

jmr@…

Message:

allow pkg target to write to package.destpath

File:

• trunk/base/src/port1.0/portsandbox.tcl (modified) (2 diffs)

trunk/base/src/port1.0/portsandbox.tcl

@@ -42 +42 @@
 # sandbox-exec -p '(version 1) (allow default) (deny file-write*) (allow file-write* <filter>)' some-command
 proc portsandbox::set_profile {target} {
-    global os.major portsandbox_profile workpath distpath altprefix
+    global os.major portsandbox_profile workpath distpath altprefix package.destpath
 
     switch $target {
@@ -61 +61 @@
             set allow_dirs [list $distpath]
         }
+        pkg {
+            set allow_dirs [list ${package.destpath}]
+        }
     }