changeset 4502 | 1774c037fbd2 |
parent 4501 | b2338c0cf468 |
child 4686 | 39001f4b7d99 |
--- a/contrib/hgk +++ b/contrib/hgk @@ -264,9 +264,8 @@ proc readrefs {} { regsub -all "\r\n" $tags "\n" tags set lines [split $tags "\n"] foreach f $lines { - set f [regexp -all -inline {\S+} $f] - set direct [lindex $f 0] - set full [lindex $f 1] + regexp {(\S+)$} $f full + regsub {\s+(\S+)$} $f "" direct set sha [split $full ':'] set tag [lindex $sha 1] lappend tagids($direct) $tag