Fix hg view if author's name contains unmatched quotes. (
issue248)
This was caused by the often seen Tcl list vs. string programming error.
--- a/contrib/hgk Tue May 16 14:17:45 2006 -0700
+++ b/contrib/hgk Wed May 17 14:46:12 2006 +0200
@@ -196,6 +196,7 @@
}
foreach line [split $contents "\n"] {
if {$inhdr} {
+ set line [split $line]
if {$line == {}} {
set inhdr 0
} else {
@@ -203,11 +204,11 @@
if {$tag == "author"} {
set x [expr {[llength $line] - 2}]
set audate [lindex $line $x]
- set auname [lrange $line 1 [expr {$x - 1}]]
+ set auname [join [lrange $line 1 [expr {$x - 1}]]]
} elseif {$tag == "committer"} {
set x [expr {[llength $line] - 2}]
set comdate [lindex $line $x]
- set comname [lrange $line 1 [expr {$x - 1}]]
+ set comname [join [lrange $line 1 [expr {$x - 1}]]]
}
}
} else {