summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--library/http/http.tcl1
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