From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 11 Apr 2014 16:11:01 +0000 (+0100)
Subject: topicedit: handle bgerror by crashing
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=617f57d6adeddc1187c2e7d095788c59e66a6cb6;p=ircbot.git

topicedit: handle bgerror by crashing
---

diff --git a/topicedit.tcl b/topicedit.tcl
index cc33c13..43ec29f 100755
--- a/topicedit.tcl
+++ b/topicedit.tcl
@@ -9,6 +9,12 @@ manyset $argv host port nick ident ownfullname channel topicinfo
 
 set done 0
 
+proc bgerror {msg} {
+    global errorInfo errorCode
+    puts stderr "$msg\n$errorCode\n$errorInfo\n"
+    exit 16
+}
+
 proc connected {} {
     global channel
     sendout JOIN $channel