Revision: 119655 https://trac.macports.org/changeset/119655 Author: jmr@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} {