[116493] trunk/base/src/macports1.0/macports.tcl

[jmr at macports.org]

Revision: 116493
          https://trac.macports.org/changeset/116493
Author:   jmr at macports.org
Date:     2014-01-27 01:43:26 -0800 (Mon, 27 Jan 2014)
Log Message:
-----------
revert Tcl 8.4 incompatible usage of 'string range' introduced in r116445

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

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

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2014-01-27 08:09:59 UTC (rev 116492)
+++ trunk/base/src/macports1.0/macports.tcl	2014-01-27 09:43:26 UTC (rev 116493)
@@ -1536,7 +1536,7 @@
     set protocol [macports::getprotocol $url]
     switch -- $protocol {
         file {
-            set path [file normalize [string range $url [string length $protocol]+3 end]]
+            set path [file normalize [string range $url [expr {[string length $protocol] + 3}] end]]
             if {![file isfile $path]} {
                 # the URL points to a local directory
                 return $path
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140127/91769034/attachment-0001.html>