proc onread {args} {
global sock nick calling_nick errorInfo errorCode line_org_endchar
- if {[gets $sock line] == -1} { fail "EOF/error on input" }
+ if {[catch { gets $sock line } rv]} { fail "error on input: $rv" }
+ if {$rv == -1} { fail "EOF on input" }
+
set line_org_endchar [string range $line end end]
regsub -all "\[^ -\176\240-\376\]" $line ? line
set org $line