[35806] trunk/base/src/port1.0/portfetch.tcl
raimue at macports.org
raimue at macports.org
Sun Apr 6 16:40:59 PDT 2008
Revision: 35806
http://trac.macosforge.org/projects/macports/changeset/35806
Author: raimue at macports.org
Date: 2008-04-06 16:40:58 -0700 (Sun, 06 Apr 2008)
Log Message:
-----------
port1.0/portfetch.tcl:
Move checkfiles from fetch_init to fetch_start:
* Assemble fetch URLs only when needed
* Do not ping servers if not actually fetching
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:09:09 UTC (rev 35805)
+++ trunk/base/src/port1.0/portfetch.tcl 2008-04-06 23:40:58 UTC (rev 35806)
@@ -609,20 +609,21 @@
}
}
-# Initialize fetch target and call checkfiles.
+# Initialize fetch target
proc fetch_init {args} {
global distfiles distname distpath all_dist_files dist_subdir fetch.type
if {[info exist distpath] && [info exists dist_subdir]} {
set distpath ${distpath}/${dist_subdir}
}
- checkfiles
}
proc fetch_start {args} {
global UI_PREFIX portname
ui_msg "$UI_PREFIX [format [msgcat::mc "Fetching %s"] $portname]"
+
+ checkfiles
}
# Main fetch routine
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080406/f955f8bb/attachment.html
More information about the macports-changes
mailing list