Revision
92546
Author
jmr@macports.org
Date
2012-04-30 21:34:13 -0700 (Mon, 30 Apr 2012)

Log Message

handle subports correctly in action_deps and action_log when the porturl is known

Modified Paths

Diff

Modified: trunk/base/src/port/port.tcl (92545 => 92546)


--- trunk/base/src/port/port.tcl	2012-05-01 04:33:14 UTC (rev 92545)
+++ trunk/base/src/port/port.tcl	2012-05-01 04:34:13 UTC (rev 92546)
@@ -1840,7 +1840,13 @@
                 break_softcontinue "Portdir $portdir not found" 1 status
             }
             array unset portinfo
-            array set portinfo [lindex $result 1]
+            set matchindex [lsearch -exact -nocase $result $portname]
+            if {$matchindex != -1} {
+                array set portinfo [lindex $result [incr matchindex]]
+            } else {
+                ui_warn "Portdir $portdir doesn't seem to belong to portname $portname"
+                array set portinfo [lindex $result 1]
+            }
             set portname $portinfo(name)
         }
         set portpath [macports::getportdir $porturl]
@@ -2783,7 +2789,13 @@
             if {[llength $result] < 2} {
                 break_softcontinue "Portdir $portdir not found" 1 status
             }
-            array set portinfo [lindex $result 1]
+            set matchindex [lsearch -exact -nocase $result $portname]
+            if {$matchindex != -1} {
+                array set portinfo [lindex $result [incr matchindex]]
+            } else {
+                ui_warn "Portdir $portdir doesn't seem to belong to portname $portname"
+                array set portinfo [lindex $result 1]
+            }
         }
 
         if {!([info exists options(ports_${action}_index)] && $options(ports_${action}_index) eq "yes")} {