handle eof on stdin

diff --git a/spoutchan.tcl b/spoutchan.tcl
index cb601ab..b350563 100755 (executable)
--- 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
 }