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 |
|
|
464 | 463 |
|
|
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