diff options
| -rw-r--r-- | library/http/http.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index 1496d63..046cdeb 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -707,6 +707,7 @@ proc http::cleanup {token} { proc http::Connect {token} { variable $token upvar 0 $token state + set err "due to unexpected EOF" if {[eof $state(sock)] || [string length [set err [fconfigure $state(sock) -error]]]} { Finish $token "connect failed $err" 1 |