Tcl Source Code

Artifact e7b987bb250d8b020eb21fb39bb4cbf3ddfaee5f:

Attachment "http_Finish.patch" to ticket [3029622fff] added by vivia 2010-07-15 01:17:04.

---

Index: utils/http/http.tcl
===================================================================
--- utils/http/http.tcl	(revision 12078)
+++ utils/http/http.tcl	(working copy)
@@ -196,7 +196,9 @@
         ($state(status) eq "timeout") || ($state(status) eq "error") ||
         ([info exists state(connection)] && ($state(connection) eq "close"))
     } then {
-        CloseSocket $state(sock) $token
+	if { [info exists state(sock)]} {
+	    CloseSocket $state(sock) $token
+	}
     }
     if {[info exists state(after)]} {
         after cancel $state(after)