Artifact
2d80fd75cdd9c67ac0b46d7b0a43242b1a9e29f9:
Attachment "http.diff" to
ticket [2900683fff]
added by
kraney
2009-11-20 02:55:07.
--- library/http/http.tcl 2008-10-23 18:34:32.000000000 -0500
+++ /distro/source/a/tcl/http-2.7.2.tm 2009-11-19 11:48:14.000000000 -0600
@@ -943,10 +943,11 @@
return
}
if {$state(state) eq "connecting"} {
- set state(state) "header"
if {[catch {gets $sock state(http)} n]} {
return [Finish $token $n]
}
+ if {$n <= 0} return
+ set state(state) "header"
} elseif {$state(state) eq "header"} {
if {[catch {gets $sock line} n]} {
return [Finish $token $n]