[116499] trunk/base/src/port1.0/fetch_common.tcl
jmr at macports.org
jmr at macports.org
Mon Jan 27 02:31:12 PST 2014
Revision: 116499
https://trac.macports.org/changeset/116499
Author: jmr at macports.org
Date: 2014-01-27 02:31:12 -0800 (Mon, 27 Jan 2014)
Log Message:
-----------
fetch_common.tcl: fix Tcl 8.4 incompatibility introduced in r116449
Revision Links:
--------------
https://trac.macports.org/changeset/116449
Modified Paths:
--------------
trunk/base/src/port1.0/fetch_common.tcl
Modified: trunk/base/src/port1.0/fetch_common.tcl
===================================================================
--- trunk/base/src/port1.0/fetch_common.tcl 2014-01-27 10:23:20 UTC (rev 116498)
+++ trunk/base/src/port1.0/fetch_common.tcl 2014-01-27 10:31:12 UTC (rev 116499)
@@ -109,8 +109,8 @@
set aftersep [expr {[string first : $element] + 3}]
set firstslash [string first / $element $aftersep]
if {$firstslash != -1 && $firstslash < $lastcolon} {
- set mirror_tag [string range $element $lastcolon+1 end]
- set element [string range $element 0 $lastcolon-1]
+ set mirror_tag [string range $element [expr {$lastcolon + 1}] end]
+ set element [string range $element 0 [expr {$lastcolon - 1}]]
} else {
set mirror_tag ""
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140127/0468d33e/attachment-0001.html>
More information about the macports-changes
mailing list