Changeset 52800


Ignore:
Timestamp:
Jun 23, 2009, 10:27:26 AM (11 years ago)
Author:
toby@…
Message:

fix distfiles target (i think)

File:
1 edited

Legend:

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

    r51521 r52800  
    5454
    5555proc portdistfiles::distfiles_main {args} {
    56     global UI_PREFIX master_sites fetch_urls url_var distfile checksums_array
     56    global UI_PREFIX master_sites checksums_array
    5757   
    5858    # give up on ports that do not provide URLs
     
    6262
    6363    # from portfetch... process the sites, files and patches
    64     portfetch::checkfiles
     64    set fetch_urls {}
     65    portfetch::checkfiles fetch_urls
    6566
    6667    # get checksum data from the portfile and parse it
     
    6869    set result [portchecksum::parse_checksums $checksums_str]
    6970
    70     foreach {url_var distfile} $portfetch::fetch_urls {
     71    foreach {url_var distfile} $fetch_urls {
     72        global portfetch::urlmap
    7173
    7274        ui_msg "\[$distfile\]"
     
    8082
    8183        # determine sites to download from
    82         namespace import ::portfetch::$url_var
    83         if {![info exists $url_var]} {
    84             set url_var master_sites
     84        if {![info exists urlmap($url_var)]} {
     85            set urlmap($url_var) $master_sites
    8586        }
    8687       
    8788        # determine URLs to download
    88         foreach site [set $url_var] {
     89        foreach site $urlmap($url_var) {
    8990            set file_url [portfetch::assemble_url $site $distfile]
    9091            ui_msg "  $file_url"
Note: See TracChangeset for help on using the changeset viewer.