##// END OF EJS Templates
hgk: fix tag list parser (issue4101)...
Andrew Shadura -
r20154:970394b6 stable
parent child Browse files
Show More
@@ -457,13 +457,11 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 462 lappend tagids($tag) $id
464 463 lappend idtags($id) $tag
465 464 }
466 }
467 465
468 466 set status [catch {exec $env(HG) --config ui.report_untrusted=false heads} heads]
469 467 if { $status != 0 } {
General Comments 0
You need to be logged in to leave comments. Login now