[69043] trunk/base/src/package1.0/portarchivefetch.tcl

[jmr at macports.org]

Revision: 69043
          http://trac.macports.org/changeset/69043
Author:   jmr at macports.org
Date:     2010-06-21 15:52:44 -0700 (Mon, 21 Jun 2010)
Log Message:
-----------
move potentially time-consuming code from archivefetch_init to archivefetch_start

Modified Paths:
--------------
    trunk/base/src/package1.0/portarchivefetch.tcl

Modified: trunk/base/src/package1.0/portarchivefetch.tcl
===================================================================
--- trunk/base/src/package1.0/portarchivefetch.tcl	2010-06-21 22:51:44 UTC (rev 69042)
+++ trunk/base/src/package1.0/portarchivefetch.tcl	2010-06-21 22:52:44 UTC (rev 69043)
@@ -260,20 +260,17 @@
 
 # Initialize archivefetch target and call checkfiles.
 proc portarchivefetch::archivefetch_init {args} {
-    variable archivefetch_urls
-    global ports_source_only
-
     if {[option portarchivemode] != "yes"} {
         return -code error "Archive mode is not enabled!"
     }
+}
 
+proc portarchivefetch::archivefetch_start {args} {
+    variable archivefetch_urls
+    global UI_PREFIX name all_archive_files ports_source_only
     if {![tbool ports_source_only]} {
         portarchivefetch::checkfiles archivefetch_urls
     }
-}
-
-proc portarchivefetch::archivefetch_start {args} {
-    global UI_PREFIX name all_archive_files
     if {[info exists all_archive_files] && [llength $all_archive_files] > 0} {
         ui_msg "$UI_PREFIX [format [msgcat::mc "Fetching archive for %s"] $name]"
     }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100621/4f00c28f/attachment-0001.html>