Projects
New Ticket     Wiki     Browse Source     Timeline     Roadmap     Bug Reports     Search

Changeset 37914 for trunk/base/src

Show
Ignore:
Timestamp:
06/28/08 21:03:03 (5 months ago)
Author:
jmr@…
Message:

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

Files:
1 modified

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]} {