[92976] trunk/base/src/macports1.0/macports.tcl

[jmr at macports.org]

Revision: 92976
          https://trac.macports.org/changeset/92976
Author:   jmr at macports.org
Date:     2012-05-12 08:01:47 -0700 (Sat, 12 May 2012)
Log Message:
-----------
fix source numbering in _mports_load_quickindex when a source's quick index is missing (#30593)

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2012-05-12 14:50:42 UTC (rev 92975)
+++ trunk/base/src/macports1.0/macports.tcl	2012-05-12 15:01:47 UTC (rev 92976)
@@ -2756,11 +2756,13 @@
         set source [lindex $source 0]
         set index [macports::getindex $source]
         if {![file exists ${index}]} {
+            incr sourceno
             continue
         }
         if {![file exists ${index}.quick]} {
             ui_warn "No quick index file found, attempting to generate one for source: $source"
             if {[catch {set quicklist [mports_generate_quickindex ${index}]}]} {
+                incr sourceno
                 continue
             }
         }
@@ -2768,6 +2770,7 @@
         if {![info exists quicklist]} {
             if {[catch {set fd [open ${index}.quick r]} result]} {
                 ui_warn "Can't open quick index file for source: $source"
+                incr sourceno
                 continue
             } else {
                 set quicklist [read $fd]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20120512/6435ce23/attachment-0001.html>