# HG changeset patch
# User Thomas Arendsen Hein <thomas@intevation.de>
# Date 1147869972 -7200
# Node ID 936b615eb44e9272198230973207e51aeeedf76b
# Parent  6e8e3dd7976e820267e3d5b1ebbbb0eda4b094e6
Fix hg view if author's name contains unmatched quotes. (issue248)
This was caused by the often seen Tcl list vs. string programming error.


diff -r 6e8e3dd7976e -r 936b615eb44e contrib/hgk
--- 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 {