topicedit: handle bgerror by crashing

[ircbot.git] / topicedit.tcl

diff --git a/topicedit.tcl b/topicedit.tcl
index cc33c1322eb306b8f3b2fa1d3c09209bdb7c2c25..43ec29f9aa78674147d927fad085baca80061202 100755 (executable)
--- 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