Changeset 230 for trunk/base

Timestamp:

Aug 21, 2002, 8:33:16 AM (22 years ago)

Author:

landonf (Landon Fuller)

Message:

Fix default_sufx handling

File:

• trunk/base/src/port1.0/portfetch.tcl (modified) (1 diff)

trunk/base/src/port1.0/portfetch.tcl

@@ -22 +22 @@
 proc suffix {distname} {
     global extract_sufx use_bzip2 use_zip
-    if {[info exists extract_sufx]} {
-        return ${distname}.${extract_sufx}
-    } elseif {[tbool use_bzip2]} {
+    if {[tbool use_bzip2]} {
         return ${distname}.tar.bz2
     } elseif {[tbool use_zip]} {
         return ${distname}.zip
     } else {
-        return ${distname}.tar.gz
+        return ${distname}.${extract_sufx}
     }
 }