[37914] trunk/base/src/port1.0/portfetch.tcl
jmr at macports.org
jmr at macports.org
Sat Jun 28 21:03:04 PDT 2008
Revision: 37914
http://trac.macosforge.org/projects/macports/changeset/37914
Author: jmr at macports.org
Date: 2008-06-28 21:03:03 -0700 (Sat, 28 Jun 2008)
Log Message:
-----------
Try the distfiles mirror for tagged files too. Closes #15485.
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-06-29 01:15:46 UTC (rev 37913)
+++ trunk/base/src/port1.0/portfetch.tcl 2008-06-29 04:03:03 UTC (rev 37914)
@@ -256,7 +256,22 @@
}
}
+ # add in the global and fallback mirrors for each tag
foreach site $site_list {
+ if {[regexp {([a-zA-Z]+://.+/?):([0-9A-Za-z_-]+)$} $site match site tag]} {
+ if {![info exists extras_added($tag)]} {
+ set site_list [concat $site_list [mirror_sites $global_mirror_site $tag ""] [mirror_sites $fallback_mirror_site $tag ""]]
+ if {[string equal $list master_sites] && [info exists env(MASTER_SITE_LOCAL)]} {
+ set site_list [concat [list $env(MASTER_SITE_LOCAL)] $site_list]
+ } elseif {[string equal $list patch_sites] && [info exists env(PATCH_SITE_LOCAL)]} {
+ set site_list [concat [list $env(PATCH_SITE_LOCAL)] $site_list]
+ }
+ set extras_added($tag) yes
+ }
+ }
+ }
+
+ foreach site $site_list {
if {[regexp {([a-zA-Z]+://.+/?):([0-9A-Za-z_-]+)$} $site match site tag]} {
lappend portfetch::$tag $site
} else {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080628/bc391af9/attachment.html
More information about the macports-changes
mailing list