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

[perry at macports.org]

Revision: 43519
          http://trac.macports.org/changeset/43519
Author:   perry at macports.org
Date:     2008-12-10 23:43:31 -0800 (Wed, 10 Dec 2008)
Log Message:
-----------
port/port.tcl - Addressed Ticket #13673.
* `port -q info --index --maintainer all' now works.
* Unfortunately it's still slow...

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2008-12-11 07:42:51 UTC (rev 43518)
+++ trunk/base/src/port/port.tcl	2008-12-11 07:43:31 UTC (rev 43519)
@@ -1351,6 +1351,24 @@
             array set portinfo [lindex $result 1]
             set porturl $portinfo(porturl)
             set portdir $portinfo(portdir)
+        } else {
+            # Extract the portdir from porturl and use it to search PortIndex.
+            # Only the last two elements of the path (porturl) make up the
+            # portdir.
+            set portdir [file split [macports::getportdir $porturl]]
+            set lsize [llength $portdir]
+            set portdir \
+                [file join [lindex $portdir [expr $lsize - 2]] \
+                           [lindex $portdir [expr $lsize - 1]]]
+            if {[catch {mportsearch $portdir no exact portdir} result]} {
+                ui_debug "$::errorInfo"
+                break_softcontinue "Portdir $portdir not found" 1 status
+            }
+            if {[llength $result] < 2} {
+                break_softcontinue "Portdir $portdir not found" 1 status
+            }
+            array unset portinfo
+            array set portinfo [lindex $result 1]
         }
 
         if {!([info exists options(ports_info_index)] && $options(ports_info_index) eq "yes")} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20081210/6b242e6c/attachment.html>