Changeset 68965


Ignore:
Timestamp:
Jun 18, 2010, 9:53:59 PM (7 years ago)
Author:
jmr@…
Message:

fix handling of distfiles with tags that have no corresponding URL (#25332)

Location:
trunk/base/src
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/package1.0/portarchivefetch.tcl

    r66589 r68965  
    175175            if {![info exists urlmap($url_var)]} {
    176176                ui_error [format [msgcat::mc "No defined site for tag: %s, using archive_sites"] $url_var]
    177                 set urlmap($url_var) $archive_sites
     177                set urlmap($url_var) $urlmap(archive_sites)
    178178            }
    179179            unset -nocomplain fetched
  • trunk/base/src/port1.0/fetch_common.tcl

    r66931 r68965  
    219219            if {$url_var != $default_listvar} {
    220220                ui_error [format [msgcat::mc "No defined site for tag: %s, using $default_listvar"] $url_var]
    221                 set urlmap($url_var) [set $default_listvar]
     221                set urlmap($url_var) $urlmap($default_listvar)
    222222            } else {
    223223                set urlmap($url_var) {}
     
    295295        if {![info exists urlmap($url_var)]} {
    296296            ui_error [format [msgcat::mc "No defined site for tag: %s, using master_sites"] $url_var]
    297             set urlmap($url_var) $master_sites
     297            set urlmap($url_var) $urlmap(master_sites)
    298298        }
    299299        foreach site $urlmap($url_var) {
  • trunk/base/src/port1.0/portdistfiles.tcl

    r66692 r68965  
    8383        # determine sites to download from
    8484        if {![info exists urlmap($url_var)]} {
    85             set urlmap($url_var) $master_sites
     85            set urlmap($url_var) $urlmap(master_sites)
    8686        }
    8787       
  • trunk/base/src/port1.0/portfetch.tcl

    r68816 r68965  
    472472            if {![info exists urlmap($url_var)]} {
    473473                ui_error [format [msgcat::mc "No defined site for tag: %s, using master_sites"] $url_var]
    474                 set urlmap($url_var) $master_sites
     474                set urlmap($url_var) $urlmap(master_sites)
    475475            }
    476476            unset -nocomplain fetched
Note: See TracChangeset for help on using the changeset viewer.