[22002] trunk/base/src/port1.0/portutil.tcl

[source_changes at macosforge.org]

Revision: 22002
          http://trac.macosforge.org/projects/macports/changeset/22002
Author:   eridius at macports.org
Date:     2007-02-13 12:08:37 -0800 (Tue, 13 Feb 2007)

Log Message:
-----------
Allow tbool to work on array variables

Modified Paths:
--------------
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2007-02-13 19:35:05 UTC (rev 22001)
+++ trunk/base/src/port1.0/portutil.tcl	2007-02-13 20:08:37 UTC (rev 22002)
@@ -429,11 +429,11 @@
 # If the variable exists in the calling procedure's namespace
 # and is set to "yes", return 1. Otherwise, return 0
 proc tbool {key} {
-    upvar $key $key
-    if {[info exists $key]} {
-	if {[string equal -nocase [set $key] "yes"]} {
-	    return 1
-	}
+    upvar $key var
+    if {[info exists var]} {
+        if {[string equal -nocase [set var] "yes"]} {
+            return 1
+        }
     }
     return 0
 }

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070213/7b9b0dc5/attachment.html