[116503] trunk/base/src/registry2.0/registry.tcl

[jmr at macports.org]

Revision: 116503
          https://trac.macports.org/changeset/116503
Author:   jmr at macports.org
Date:     2014-01-27 03:01:13 -0800 (Mon, 27 Jan 2014)
Log Message:
-----------
registry.tcl: fix Tcl 8.4 incompatibility introduced in r116450

Revision Links:
--------------
    https://trac.macports.org/changeset/116450

Modified Paths:
--------------
    trunk/base/src/registry2.0/registry.tcl

Modified: trunk/base/src/registry2.0/registry.tcl
===================================================================
--- trunk/base/src/registry2.0/registry.tcl	2014-01-27 10:53:44 UTC (rev 116502)
+++ trunk/base/src/registry2.0/registry.tcl	2014-01-27 11:01:13 UTC (rev 116503)
@@ -466,7 +466,7 @@
         foreach f $contents {
             set fullpath [lindex $f 0]
             # strip image dir from start
-            if {[string range $fullpath 0 $idlen-1] == $location} {
+            if {[string range $fullpath 0 [expr {$idlen - 1}]] == $location} {
                 set path [string range $fullpath $idlen [string length $fullpath]]
             } else {
                 set path $fullpath
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140127/d3a715fb/attachment.html>