Changeset 4000 for trunk/base

Timestamp:

Nov 21, 2003, 7:29:15 AM (20 years ago)

Author:

fkr

Message:

Bug:
Submitted by:
Reviewed by:
Approved by:
Obtained from:

use tbool instead of exists. Also closes #1679.

File:

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

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

@@ -58 +58 @@
     global extract.only extract.dir extract.cmd extract.pre_args extract.post_args distfiles use_bzip2 use_zip workpath
 
-    if {[exists use_bzip2]} {
+    if {[tbool use_bzip2]} {
         option extract.cmd [binaryInPath "bzip2"]
-    } elseif {[exists use_zip]} {
+    } elseif {[tbool use_zip]} {
         option extract.cmd [binaryInPath "unzip"]
         option extract.pre_args -q