##// END OF EJS Templates
hgk: fix tag list parser (issue4101)...
Andrew Shadura -
r20154:970394b6 stable
parent child Browse files
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 lappend tagids($tag) $id
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