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 | # 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 :] { |
|
|||
463 |
|
|
462 | lappend tagids($tag) $id | |
464 |
|
|
463 | lappend idtags($id) $tag | |
465 |
|
|
464 | } | |
466 | } |
|
|||
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] | |
469 | if { $status != 0 } { |
|
467 | if { $status != 0 } { |
General Comments 0
You need to be logged in to leave comments.
Login now