##// 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 # 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 lappend tagids($tag) $id
462 lappend tagids($tag) $id
464 lappend idtags($id) $tag
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