##// END OF EJS Templates
hgk: fix tag list parser (issue4101)...
Andrew Shadura -
r20154:970394b6 stable
parent child Browse files
Show More
@@ -457,12 +457,10 b' proc readrefs {} {'
457 457 }
458 458 }
459 459
460 foreach {tag rev} $tags {
460 foreach {- tag rev id} [regexp -inline -all -line {^(.+\S)\s+(\d+):(\S+)} $tags] {
461 461 # we use foreach as Tcl8.4 doesn't support lassign
462 foreach {- id} [split $rev :] {
463 lappend tagids($tag) $id
464 lappend idtags($id) $tag
465 }
462 lappend tagids($tag) $id
463 lappend idtags($id) $tag
466 464 }
467 465
468 466 set status [catch {exec $env(HG) --config ui.report_untrusted=false heads} heads]
General Comments 0
You need to be logged in to leave comments. Login now