Revision: 116499 https://trac.macports.org/changeset/116499 Author: jmr@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 "" }