Show More
| @@ -2819,7 +2819,9 b' proc gettreediffline {gdtf ids} {' | |||||
| 2819 | } |
|
2819 | } | |
| 2820 | return |
|
2820 | return | |
| 2821 | } |
|
2821 | } | |
| 2822 | set file [lindex $line 5] |
|
2822 | set tab1 [expr [string first "\t" $line] + 1] | |
|
|
2823 | set tab2 [expr [string first "\t" $line $tab1] - 1] | |||
|
|
2824 | set file [string range $line $tab1 $tab2] | |||
| 2823 | lappend treediff $file |
|
2825 | lappend treediff $file | |
| 2824 | } |
|
2826 | } | |
| 2825 |
|
2827 | |||
General Comments 0
You need to be logged in to leave comments.
Login now