Changeset 220 for trunk/base

Timestamp:

Aug 21, 2002, 6:29:27 AM (22 years ago)

Author:

landonf (Landon Fuller)

Message:

default extract_sufx

File:

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

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

@@ -15 +15 @@
 options master_sites patch_sites extract_sufx distfiles extract_only patchfiles use_zip use_bzip2
 
+# Defaults
+default extract_sufx tar.gz
+
 proc suffix {distname} {
     global extract_sufx use_bzip2 use_zip
-    if {[tbool extract_sufx]} {
+    if {[info exists extract_sufx]} {
         return ${distname}.${extract_sufx}
     } elseif {[tbool use_bzip2]} {