[116505] trunk/base/src/macports1.0/macports_util.tcl

[jmr at macports.org]

Revision: 116505
          https://trac.macports.org/changeset/116505
Author:   jmr at 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140127/b7e3fc91/attachment-0001.html>