Changeset 83471


Ignore:
Timestamp:
Sep 2, 2011, 10:39:34 AM (9 years ago)
Author:
jmr@…
Message:

clear distfiles when changing fetch.type rather than changing the behaviour of the suffix proc

File:
1 edited

Legend:

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

    r83149 r83471  
    166166    global os.platform os.major
    167167    if {[string equal ${action} "set"]} {
     168        if {$args != "standard"} {
     169            distfiles
     170        }
    168171        switch $args {
    169172            bzr {
     
    205208# Given a distname, return the distname with extract.suffix appended
    206209proc portfetch::suffix {distname} {
    207     global extract.suffix fetch.type
    208     switch -- "${fetch.type}" {
    209         bzr         -
    210         cvs         -
    211         svn         -
    212         git         -
    213         hg          { return "" }
    214         standard    -
    215         default     { return "${distname}${extract.suffix}" }
    216     }
     210    global extract.suffix
     211    return "${distname}${extract.suffix}"
    217212}
    218213# XXX import suffix into the global namespace as it is currently used from
Note: See TracChangeset for help on using the changeset viewer.