Ticket #30593: macports30593.diff

macports.tcl

@@ -2312 +2312 @@
 
     set sourceno 0
     set matches [list]
+    set index_file_missing 0
     foreach source $sources {
         set source [lindex $source 0]
         set protocol [macports::getprotocol $source]
@@ -2328 +2329 @@
             incr sourceno 1
             if {[catch {set fd [open [macports::getindex $source] r]} result]} {
                 ui_warn "Can't open index file for source: $source"
+                set index_file_missing 1
             } else {
                 try {
                     seek $fd $offset
@@ -2387 +2389 @@
         }
     }
 
+    # User deleted their PortIndex, try using mportsearch
+    if {$index_file_missing && ([llength $matches] == 0)} {
+        set matches [mportsearch $name no exact name]
+    }
     return $matches
 }