From 65bb940fd01011167cda259485ddde99031a05d0 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Mon, 16 Jan 2012 13:29:35 +0000
Subject: Ensure that error messages are always set, even in
 believed-unreachable code.

---
 library/http/http.tcl | 1 +
 1 file changed, 1 insertion(+)

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
-- 
cgit v0.12