Changeset 230


Ignore:
Timestamp:
Aug 21, 2002, 8:33:16 AM (18 years ago)
Author:
landonf (Landon Fuller)
Message:

Fix default_sufx handling

File:
1 edited

Legend:

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

    r228 r230  
    2222proc suffix {distname} {
    2323    global extract_sufx use_bzip2 use_zip
    24     if {[info exists extract_sufx]} {
    25         return ${distname}.${extract_sufx}
    26     } elseif {[tbool use_bzip2]} {
     24    if {[tbool use_bzip2]} {
    2725        return ${distname}.tar.bz2
    2826    } elseif {[tbool use_zip]} {
    2927        return ${distname}.zip
    3028    } else {
    31         return ${distname}.tar.gz
     29        return ${distname}.${extract_sufx}
    3230    }
    3331}
Note: See TracChangeset for help on using the changeset viewer.