Mercurial > hg

changeset 2297:936b615eb44e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix hg view if author's name contains unmatched quotes. (issue248) This was caused by the often seen Tcl list vs. string programming error.
author Thomas Arendsen Hein <thomas@intevation.de>
date Wed, 17 May 2006 14:46:12 +0200
parents 6e8e3dd7976e
children 4be9a79b49b1 dacf718e1d48
files contrib/hgk
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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 {