Changeset 41142


Ignore:
Timestamp:
Oct 25, 2008, 9:11:30 PM (12 years ago)
Author:
raimue@…
Message:

port1.0/portfetch.tcl:
Use getportresourcepath

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/variant-descs-14482/base/src/port1.0/portfetch.tcl

    r40953 r41142  
    101101default global_mirror_site "macports_distfiles"
    102102default mirror_sites.listfile {"mirror_sites.tcl"}
    103 default mirror_sites.listpath {"${portresourcepath}/fetch/"}
     103default mirror_sites.listpath {"port1.0/fetch"}
    104104
    105105# Option-executed procedures
     
    174174# pre-registered set of sites, and if so, return them.
    175175proc mirror_sites {mirrors tag subdir} {
    176     global UI_PREFIX portname portresourcepath mirror_sites.listfile mirror_sites.listpath dist_subdir
    177     source ${mirror_sites.listpath}${mirror_sites.listfile}
     176    global UI_PREFIX portname porturl mirror_sites.listfile mirror_sites.listpath dist_subdir
     177
     178    source [getportresourcepath $porturl [file join ${mirror_sites.listpath} ${mirror_sites.listfile}]]
     179
    178180    if {![info exists portfetch::mirror_sites::sites($mirrors)]} {
    179181        ui_warn "[format [msgcat::mc "No mirror sites on file for class %s"] $mirrors]"
Note: See TracChangeset for help on using the changeset viewer.