From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 8 Apr 2005 14:45:02 +0000 (+0000)
Subject: handle eof on stdin
X-Git-Url: https://git.distorted.org.uk/~mdw/ircbot/commitdiff_plain/aedb69d5a18605a67d8ec4ca23a0a5129d67a0c3

handle eof on stdin
---

diff --git a/spoutchan.tcl b/spoutchan.tcl
index cb601ab..b350563 100755
--- a/spoutchan.tcl
+++ b/spoutchan.tcl
@@ -19,6 +19,7 @@ proc msg_366 {args} {
 }
 proc stdinread {} {
     global channel
+    if {[eof stdin]} { exit 0 }
     if {[gets stdin l] < 0} return
     sendprivmsg $channel $l
 }