# HG changeset patch
# User Dennis Schoen <ds@1d10t.de>
# Date 1200480624 -3600
# Node ID 108636b9b981869320d2e9377f4718835b37c117
# Parent  55ba3bc5b8fdc41dc65b86cbca4f93cba4f01611
hgk: don't exit if mercurial commands only print warnings

diff -r 55ba3bc5b8fd -r 108636b9b981 contrib/hgk
--- a/contrib/hgk	Fri Mar 14 15:38:56 2008 -0700
+++ b/contrib/hgk	Wed Jan 16 11:50:24 2008 +0100
@@ -343,11 +343,24 @@
 proc readrefs {} {
     global tagids idtags headids idheads tagcontents env curid
 
-    set curid [exec $env(HG) --config ui.report_untrusted=false id]
+    set status [catch {exec $env(HG) --config ui.report_untrusted=false id} curid]
+    if { $status != 0 } {
+        puts $::errorInfo
+        if { ![string equal $::errorCode NONE] } {
+            exit 2
+        }
+    }
     regexp -- {[[:xdigit:]]+} $curid curid
 
-    set tags [exec $env(HG) --config ui.report_untrusted=false tags]
+    set status [catch {exec $env(HG) --config ui.report_untrusted=false tags} tags]
+    if { $status != 0 } {
+        puts $::errorInfo
+        if { ![string equal $::errorCode NONE] } {
+            exit 2
+        }
+    }
     regsub -all "\r\n" $tags "\n" tags
+
     set lines [split $tags "\n"]
     foreach f $lines {
 	regexp {(\S+)$} $f full