[119655] trunk/base/src/macports1.0/macports_dlist.tcl

[jmr at macports.org]

Revision: 119655
          https://trac.macports.org/changeset/119655
Author:   jmr at macports.org
Date:     2014-05-02 19:05:04 -0700 (Fri, 02 May 2014)
Log Message:
-----------
use [set varname] rather than [subst $varname]

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports_dlist.tcl

Modified: trunk/base/src/macports1.0/macports_dlist.tcl
===================================================================
--- trunk/base/src/macports1.0/macports_dlist.tcl	2014-05-03 02:03:03 UTC (rev 119654)
+++ trunk/base/src/macports1.0/macports_dlist.tcl	2014-05-03 02:05:04 UTC (rev 119655)
@@ -412,7 +412,7 @@
 proc ditem_contains {ditem key args} {
 	variable $ditem
 	if {[llength $args] == 0} {
-		return [info exists [subst $ditem]($key)]
+		return [info exists [set ditem]($key)]
 	} else {
 		set x [lindex [array get $ditem $key] 1]
 		if {[llength $x] > 0 && [lsearch -exact $x [lindex $args 0]] != -1} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140502/d1d09593/attachment.html>