[116501] trunk/base/src/port1.0/porttrace.tcl

[jmr at macports.org]

Revision: 116501
          https://trac.macports.org/changeset/116501
Author:   jmr at macports.org
Date:     2014-01-27 02:41:20 -0800 (Mon, 27 Jan 2014)
Log Message:
-----------
porttrace.tcl: fix Tcl 8.4 incompatibility introduced in r116449

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

Modified Paths:
--------------
    trunk/base/src/port1.0/porttrace.tcl

Modified: trunk/base/src/port1.0/porttrace.tcl
===================================================================
--- trunk/base/src/port1.0/porttrace.tcl	2014-01-27 10:37:37 UTC (rev 116500)
+++ trunk/base/src/port1.0/porttrace.tcl	2014-01-27 10:41:20 UTC (rev 116501)
@@ -273,8 +273,8 @@
         # Skip empty lines.
         if {$line_length > 0} {
             set path_start [expr {[string first "\t" $theline] + 1}]
-            set op [string range $theline 0 $path_start-2]
-            set path [string range $theline $path_start $line_length-1]
+            set op [string range $theline 0 [expr {$path_start - 2}]]
+            set path [string range $theline $path_start [expr {$line_length - 1}]]
 
             # open/execve
             if {$op eq "open" || $op eq "execve"} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140127/32c69f14/attachment.html>