[37914] trunk/base/src/port1.0/portfetch.tcl

[jmr at macports.org]

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