| author | Thomas Arendsen Hein <thomas@intevation.de> |
| Sun, 01 Jul 2007 19:15:25 +0200 | |
| changeset 4741 | 4a84f7421692 |
| parent 4740 | e1d1b22bab57 |
| child 4742 | 438603c1eb6f |
| child 4758 | a72dd3bfce41 |
| contrib/hgk | file | annotate | diff | comparison | revisions |
--- a/contrib/hgk Sun Jul 01 15:22:49 2007 +0200 +++ b/contrib/hgk Sun Jul 01 19:15:25 2007 +0200 @@ -2819,7 +2819,9 @@ } return } - set file [lindex $line 5] + set tab1 [expr [string first "\t" $line] + 1] + set tab2 [expr [string first "\t" $line $tab1] - 1] + set file [string range $line $tab1 $tab2] lappend treediff $file }