Changeset 37914


Ignore:
Timestamp:
Jun 29, 2008, 4:03:03 AM (12 years ago)
Author:
jmr@…
Message:

Try the distfiles mirror for tagged files too. Closes #15485.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portfetch.tcl

    r37255 r37914  
    257257        }
    258258       
     259        # add in the global and fallback mirrors for each tag
     260        foreach site $site_list {
     261            if {[regexp {([a-zA-Z]+://.+/?):([0-9A-Za-z_-]+)$} $site match site tag]} {
     262                if {![info exists extras_added($tag)]} {
     263                    set site_list [concat $site_list [mirror_sites $global_mirror_site $tag ""] [mirror_sites $fallback_mirror_site $tag ""]]
     264                    if {[string equal $list master_sites] && [info exists env(MASTER_SITE_LOCAL)]} {
     265                        set site_list [concat [list $env(MASTER_SITE_LOCAL)] $site_list]
     266                    } elseif {[string equal $list patch_sites] && [info exists env(PATCH_SITE_LOCAL)]} {
     267                        set site_list [concat [list $env(PATCH_SITE_LOCAL)] $site_list]
     268                    }
     269                    set extras_added($tag) yes
     270                }
     271            }
     272        }
     273       
    259274        foreach site $site_list {
    260275            if {[regexp {([a-zA-Z]+://.+/?):([0-9A-Za-z_-]+)$} $site match site tag]} {
Note: See TracChangeset for help on using the changeset viewer.