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

[raimue at macports.org]

Revision: 36734
          http://trac.macosforge.org/projects/macports/changeset/36734
Author:   raimue at macports.org
Date:     2008-05-13 06:41:48 -0700 (Tue, 13 May 2008)

Log Message:
-----------
port1.0/portfetch.tcl:
Revert r35806. The checkfiles proc must always be run as the checksum phase depends on
global variables from there.

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-05-13 13:39:04 UTC (rev 36733)
+++ trunk/base/src/port1.0/portfetch.tcl	2008-05-13 13:41:48 UTC (rev 36734)
@@ -617,7 +617,7 @@
 	}
 }
 
-# Initialize fetch target
+# Initialize fetch target and call checkfiles.
 proc fetch_init {args} {
     global distfiles distname distpath all_dist_files dist_subdir fetch.type fetch_init_done
     
@@ -625,14 +625,13 @@
 	    set distpath ${distpath}/${dist_subdir}
 	    set fetch_init_done yes
     }
+    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/20080513/0404ff51/attachment.html