[69043] trunk/base/src/package1.0/portarchivefetch.tcl
jmr at macports.org
jmr at macports.org
Mon Jun 21 15:52:44 PDT 2010
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>
More information about the macports-changes
mailing list