[35808] trunk/base/src/port1.0/portfetch.tcl

[jmr at macports.org]

Revision: 35808
          http://trac.macosforge.org/projects/macports/changeset/35808
Author:   jmr at macports.org
Date:     2008-04-06 17:26:39 -0700 (Sun, 06 Apr 2008)

Log Message:
-----------
Only call sortsites when we actually need to fetch something.

Modified Paths:
--------------
    trunk/base/src/port1.0/portfetch.tcl

Modified: trunk/base/src/port1.0/portfetch.tcl
===================================================================
--- trunk/base/src/port1.0/portfetch.tcl	2008-04-06 23:43:32 UTC (rev 35807)
+++ trunk/base/src/port1.0/portfetch.tcl	2008-04-07 00:26:39 UTC (rev 35808)
@@ -379,7 +379,6 @@
 	checksites
 	checkpatchfiles
 	checkdistfiles
-	sortsites
 }
 
 
@@ -536,6 +535,7 @@
 	if {$portverbose == "yes"} {
 		lappend fetch_options "-v"
 	}
+	set sorted no
 	
 	foreach {url_var distfile} $fetch_urls {
 		if {![file isfile $distpath/$distfile]} {
@@ -543,6 +543,10 @@
 			if {![file writable $distpath]} {
 				return -code error [format [msgcat::mc "%s must be writable"] $distpath]
 			}
+			if {!$sorted} {
+			    sortsites
+			    set sorted yes
+			}
 			global portfetch::$url_var
 			if {![info exists $url_var]} {
 				ui_error [format [msgcat::mc "No defined site for tag: %s, using master_sites"] $url_var]

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080406/0f720863/attachment.html