Changeset 36688


Ignore:
Timestamp:
May 11, 2008, 10:37:38 PM (12 years ago)
Author:
jmr@…
Message:

simpler, working fix for #11971.

File:
1 edited

Legend:

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

    r36687 r36688  
    616616# Initialize fetch target
    617617proc fetch_init {args} {
    618     global distfiles distname distpath all_dist_files dist_subdir fetch.type
    619    
    620     if {[info exist distpath] && [info exists dist_subdir]} {
    621         set distpath ${distpath}/${dist_subdir}
     618    global distfiles distname distpath all_dist_files dist_subdir fetch.type fetch_init_done
     619   
     620    if {[info exists distpath] && [info exists dist_subdir] && ![info exists fetch_init_done]} {
     621            set distpath ${distpath}/${dist_subdir}
     622            set fetch_init_done yes
    622623    }
    623624}
Note: See TracChangeset for help on using the changeset viewer.