summaryrefslogtreecommitdiffstats
path: root/library/http/http.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-01-16 13:32:07 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-01-16 13:32:07 (GMT)
commitd18fb9089e240310aa9bbf393a7feec2718aa6f3 (patch)
tree8ff016bfe45fa2c2048cd6eeb03f209beafaa738 /library/http/http.tcl
parent14c7b573fc0d6f98fe016525ca46a0dc752062a1 (diff)
parent65bb940fd01011167cda259485ddde99031a05d0 (diff)
downloadtcl-d18fb9089e240310aa9bbf393a7feec2718aa6f3.zip
tcl-d18fb9089e240310aa9bbf393a7feec2718aa6f3.tar.gz
tcl-d18fb9089e240310aa9bbf393a7feec2718aa6f3.tar.bz2
Ensure that error messages are always set, even in believed-unreachable code.
Diffstat (limited to 'library/http/http.tcl')
-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 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 ""