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

[jmr at macports.org]

Revision: 70000
          http://trac.macports.org/changeset/70000
Author:   jmr at macports.org
Date:     2010-07-25 19:39:27 -0700 (Sun, 25 Jul 2010)
Log Message:
-----------
fix trace socket temp dir permissions and missing variables in trace slave thread

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

Modified: trunk/base/src/port1.0/porttrace.tcl
===================================================================
--- trunk/base/src/port1.0/porttrace.tcl	2010-07-26 01:50:37 UTC (rev 69999)
+++ trunk/base/src/port1.0/porttrace.tcl	2010-07-26 02:39:27 UTC (rev 70000)
@@ -34,6 +34,7 @@
 
 package provide porttrace 1.0
 package require Pextlib 1.0
+package require portutil 1.0
 
 namespace eval porttrace {
 }
@@ -50,6 +51,7 @@
             # # set trace_fifo "$workpath/trace_fifo"
             set trace_fifo "/tmp/macports/[pid]_[expr {int(rand()*1000)}]"
             file mkdir "/tmp/macports"
+            chownAsRoot "/tmp/macports"
             file delete -force $trace_fifo
 
             # Create the thread/process.
@@ -173,7 +175,7 @@
 # Private
 # Create the slave thread.
 proc porttrace::create_slave {workpath trace_fifo} {
-    global trace_thread
+    global trace_thread prefix developer_dir
     # Create the thread.
     set trace_thread [macports_create_thread]
 
@@ -183,6 +185,8 @@
     thread::send $trace_thread "package require porttrace 1.0"
     # slave needs ui_warn and ui_debug...
     thread::send $trace_thread "macports::ui_init warn; macports::ui_init debug"
+    # and these variables
+    thread::send $trace_thread "set prefix \"$prefix\"; set developer_dir \"$developer_dir\""
 
     # Initialize the slave
     thread::send $trace_thread "porttrace::slave_init $trace_fifo $workpath"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100725/9a594eb6/attachment-0001.html>