[68965] trunk/base/src
jmr at macports.org
jmr at macports.org
Fri Jun 18 14:53:59 PDT 2010
Revision: 68965
http://trac.macports.org/changeset/68965
Author: jmr at macports.org
Date: 2010-06-18 14:53:59 -0700 (Fri, 18 Jun 2010)
Log Message:
-----------
fix handling of distfiles with tags that have no corresponding URL (#25332)
Modified Paths:
--------------
trunk/base/src/package1.0/portarchivefetch.tcl
trunk/base/src/port1.0/fetch_common.tcl
trunk/base/src/port1.0/portdistfiles.tcl
trunk/base/src/port1.0/portfetch.tcl
Modified: trunk/base/src/package1.0/portarchivefetch.tcl
===================================================================
--- trunk/base/src/package1.0/portarchivefetch.tcl 2010-06-18 21:17:23 UTC (rev 68964)
+++ trunk/base/src/package1.0/portarchivefetch.tcl 2010-06-18 21:53:59 UTC (rev 68965)
@@ -174,7 +174,7 @@
}
if {![info exists urlmap($url_var)]} {
ui_error [format [msgcat::mc "No defined site for tag: %s, using archive_sites"] $url_var]
- set urlmap($url_var) $archive_sites
+ set urlmap($url_var) $urlmap(archive_sites)
}
unset -nocomplain fetched
foreach site $urlmap($url_var) {
Modified: trunk/base/src/port1.0/fetch_common.tcl
===================================================================
--- trunk/base/src/port1.0/fetch_common.tcl 2010-06-18 21:17:23 UTC (rev 68964)
+++ trunk/base/src/port1.0/fetch_common.tcl 2010-06-18 21:53:59 UTC (rev 68965)
@@ -218,7 +218,7 @@
if {![info exists urlmap($url_var)]} {
if {$url_var != $default_listvar} {
ui_error [format [msgcat::mc "No defined site for tag: %s, using $default_listvar"] $url_var]
- set urlmap($url_var) [set $default_listvar]
+ set urlmap($url_var) $urlmap($default_listvar)
} else {
set urlmap($url_var) {}
}
@@ -294,7 +294,7 @@
foreach {url_var distfile} $fetch_urls {
if {![info exists urlmap($url_var)]} {
ui_error [format [msgcat::mc "No defined site for tag: %s, using master_sites"] $url_var]
- set urlmap($url_var) $master_sites
+ set urlmap($url_var) $urlmap(master_sites)
}
foreach site $urlmap($url_var) {
lappend urls $site
Modified: trunk/base/src/port1.0/portdistfiles.tcl
===================================================================
--- trunk/base/src/port1.0/portdistfiles.tcl 2010-06-18 21:17:23 UTC (rev 68964)
+++ trunk/base/src/port1.0/portdistfiles.tcl 2010-06-18 21:53:59 UTC (rev 68965)
@@ -82,7 +82,7 @@
# determine sites to download from
if {![info exists urlmap($url_var)]} {
- set urlmap($url_var) $master_sites
+ set urlmap($url_var) $urlmap(master_sites)
}
# determine URLs to download
Modified: trunk/base/src/port1.0/portfetch.tcl
===================================================================
--- trunk/base/src/port1.0/portfetch.tcl 2010-06-18 21:17:23 UTC (rev 68964)
+++ trunk/base/src/port1.0/portfetch.tcl 2010-06-18 21:53:59 UTC (rev 68965)
@@ -471,7 +471,7 @@
}
if {![info exists urlmap($url_var)]} {
ui_error [format [msgcat::mc "No defined site for tag: %s, using master_sites"] $url_var]
- set urlmap($url_var) $master_sites
+ set urlmap($url_var) $urlmap(master_sites)
}
unset -nocomplain fetched
foreach site $urlmap($url_var) {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100618/93b6e39c/attachment.html>
More information about the macports-changes
mailing list