[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