[63267] trunk/base/src/port/port.tcl

[raimue at macports.org]

Revision: 63267
          http://trac.macports.org/changeset/63267
Author:   raimue at macports.org
Date:     2010-01-30 20:01:47 -0800 (Sat, 30 Jan 2010)
Log Message:
-----------
port/port.tcl:
Use new log file location (see r63266). Avoid unnecessary index lookups.

Revision Links:
--------------
    http://trac.macports.org/changeset/63266

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2010-01-31 03:48:40 UTC (rev 63266)
+++ trunk/base/src/port/port.tcl	2010-01-31 04:01:47 UTC (rev 63267)
@@ -1431,7 +1431,6 @@
 
 proc action_log { action portlist opts } {
     global global_options 
-    set logfile "$macports::prefix/var/macports/logs/"
     #puts "$opts"
     if {[llength $portlist] == 0} {
         print_help
@@ -1472,17 +1471,9 @@
             array unset portinfo
             array set portinfo [lindex $result 1]
         }
-        if {[catch {set mport [mportopen $porturl [array get options] [array get merged_variations]]} result]} {
-            ui_debug "$::errorInfo"
-            break_softcontinue "Unable to open port: $result" 1 status
-         }
-         array unset portinfo
-         array set portinfo [mportinfo $mport]
-
-         append logfile $portinfo(name)
-         append logfile "/main.log"
-         mportclose $mport                        
-         if {[file exists $logfile]} {
+        set portpath [macports::getportdir $porturl]
+        set logfile [file join [macports::getportlogpath $portpath] "main.log"]
+        if {[file exists $logfile]} {
             set fp [open $logfile r]
             set data [read $fp]
             set data [split $data "\n"]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100130/91c4c033/attachment-0001.html>