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 1a82c2e..e7224a2 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -863,6 +863,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)] || [set err [fconfigure $state(sock) -error]] ne "" |