[69001] trunk/base/src/package1.0/portarchivefetch.tcl
jmr at macports.org
jmr at macports.org
Sat Jun 19 17:01:40 PDT 2010
Revision: 69001
http://trac.macports.org/changeset/69001
Author: jmr at macports.org
Date: 2010-06-19 17:01:39 -0700 (Sat, 19 Jun 2010)
Log Message:
-----------
skip archivefetch when -s is used
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-19 23:54:26 UTC (rev 69000)
+++ trunk/base/src/package1.0/portarchivefetch.tcl 2010-06-20 00:01:39 UTC (rev 69001)
@@ -249,18 +249,22 @@
# 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!"
}
- portarchivefetch::checkfiles archivefetch_urls
+ if {![tbool ports_source_only]} {
+ portarchivefetch::checkfiles archivefetch_urls
+ }
}
proc portarchivefetch::archivefetch_start {args} {
- global UI_PREFIX name
-
- ui_msg "$UI_PREFIX [format [msgcat::mc "Fetching archive for %s"] $name]"
+ 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]"
+ }
}
# Main archive fetch routine
@@ -270,5 +274,7 @@
if {[info exists all_archive_files] && [llength $all_archive_files] > 0} {
# Fetch the files
return [portarchivefetch::fetchfiles]
+ } else {
+ return 0
}
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100619/9841d27e/attachment.html>
More information about the macports-changes
mailing list