Show More
@@ -196,6 +196,7 b' proc parsecommit {id contents listed old' | |||
|
196 | 196 | } |
|
197 | 197 | foreach line [split $contents "\n"] { |
|
198 | 198 | if {$inhdr} { |
|
199 | set line [split $line] | |
|
199 | 200 | if {$line == {}} { |
|
200 | 201 | set inhdr 0 |
|
201 | 202 | } else { |
@@ -203,11 +204,11 b' proc parsecommit {id contents listed old' | |||
|
203 | 204 | if {$tag == "author"} { |
|
204 | 205 | set x [expr {[llength $line] - 2}] |
|
205 | 206 | set audate [lindex $line $x] |
|
206 | set auname [lrange $line 1 [expr {$x - 1}]] | |
|
207 | set auname [join [lrange $line 1 [expr {$x - 1}]]] | |
|
207 | 208 | } elseif {$tag == "committer"} { |
|
208 | 209 | set x [expr {[llength $line] - 2}] |
|
209 | 210 | set comdate [lindex $line $x] |
|
210 | set comname [lrange $line 1 [expr {$x - 1}]] | |
|
211 | set comname [join [lrange $line 1 [expr {$x - 1}]]] | |
|
211 | 212 | } |
|
212 | 213 | } |
|
213 | 214 | } else { |
General Comments 0
You need to be logged in to leave comments.
Login now