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

[raimue at macports.org]

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