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

[source_changes at macosforge.org]

Revision: 22023
          http://trac.macosforge.org/projects/macports/changeset/22023
Author:   eridius at macports.org
Date:     2007-02-14 11:22:00 -0800 (Wed, 14 Feb 2007)

Log Message:
-----------
Revert my change to tbool - it turns out this interferes with read traces on the variable (which is stupid - the trace should be smart enough to remember the original name).

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-14 19:16:07 UTC (rev 22022)
+++ trunk/base/src/port1.0/portutil.tcl	2007-02-14 19:22:00 UTC (rev 22023)
@@ -429,9 +429,10 @@
 # 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 var
-    if {[info exists var]} {
-        if {[string equal -nocase [set var] "yes"]} {
+    ui_debug "tbool: $key"
+    upvar $key $key
+    if {[info exists $key]} {
+        if {[string equal -nocase [set $key] "yes"]} {
             return 1
         }
     }

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070214/37fb06d3/attachment.html