[91346] trunk/base/src/port/port.tcl
jmr at macports.org
jmr at macports.org
Fri Mar 30 08:12:42 PDT 2012
Revision: 91346
https://trac.macports.org/changeset/91346
Author: jmr at macports.org
Date: 2012-03-30 08:12:39 -0700 (Fri, 30 Mar 2012)
Log Message:
-----------
get correct portname case in log and logfile actions (#32873)
Modified Paths:
--------------
trunk/base/src/port/port.tcl
Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl 2012-03-30 14:20:38 UTC (rev 91345)
+++ trunk/base/src/port/port.tcl 2012-03-30 15:12:39 UTC (rev 91346)
@@ -1822,6 +1822,7 @@
array set portinfo [lindex $result 1]
set porturl $portinfo(porturl)
set portdir $portinfo(portdir)
+ set portname $portinfo(name)
} elseif {$porturl ne "file://."} {
# Extract the portdir from porturl and use it to search PortIndex.
# Only the last two elements of the path (porturl) make up the
@@ -1840,6 +1841,7 @@
}
array unset portinfo
array set portinfo [lindex $result 1]
+ set portname $portinfo(name)
}
set portpath [macports::getportdir $porturl]
set logfile [file join [macports::getportlogpath $portpath $portname] "main.log"]
@@ -3684,6 +3686,7 @@
}
array set portinfo [lindex $res 1]
set porturl $portinfo(porturl)
+ set portname $portinfo(name)
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20120330/4c072b60/attachment.html>
More information about the macports-changes
mailing list