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 | # we use foreach as Tcl8.4 doesn't support lassign |
|
461 | # we use foreach as Tcl8.4 doesn't support lassign | |
462 | foreach {- id} [split $rev :] { |
|
462 | lappend tagids($tag) $id | |
463 |
|
|
463 | lappend idtags($id) $tag | |
464 | lappend idtags($id) $tag |
|
|||
465 | } |
|
|||
466 | } |
|
464 | } | |
467 |
|
465 | |||
468 | set status [catch {exec $env(HG) --config ui.report_untrusted=false heads} heads] |
|
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