[116505] trunk/base/src/macports1.0/macports_util.tcl
Revision: 116505 https://trac.macports.org/changeset/116505 Author: jmr@macports.org Date: 2014-01-27 03:19:45 -0800 (Mon, 27 Jan 2014) Log Message: ----------- macports_util.tcl: quote expressions Modified Paths: -------------- trunk/base/src/macports1.0/macports_util.tcl Modified: trunk/base/src/macports1.0/macports_util.tcl =================================================================== --- trunk/base/src/macports1.0/macports_util.tcl 2014-01-27 11:13:03 UTC (rev 116504) +++ trunk/base/src/macports1.0/macports_util.tcl 2014-01-27 11:19:45 UTC (rev 116505) @@ -270,8 +270,8 @@ foreach {elem catchBody} $catchList { set typeList [lshift elem] set match? 1 - set typeList [lrange $typeList 0 [expr [llength $savedErrorCode] - 1]] - set codeList [lrange $savedErrorCode 0 [expr [llength $typeList] - 1]] + set typeList [lrange $typeList 0 [expr {[llength $savedErrorCode] - 1}]] + set codeList [lrange $savedErrorCode 0 [expr {[llength $typeList] - 1}]] foreach type $typeList code $codeList { if {![string match $type $code]} { set match? 0
participants (1)
-
jmr@macports.org