summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-01-16 13:29:35 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-01-16 13:29:35 (GMT)
commit65bb940fd01011167cda259485ddde99031a05d0 (patch)
treebec8954b5c11e75049d22db148da6d21db19bc7e
parentdd2ad07b7f17937585812360682cef3aed8ceb86 (diff)
downloadtcl-65bb940fd01011167cda259485ddde99031a05d0.zip
tcl-65bb940fd01011167cda259485ddde99031a05d0.tar.gz
tcl-65bb940fd01011167cda259485ddde99031a05d0.tar.bz2
Ensure that error messages are always set, even in believed-unreachable code.
-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