13 lines
517 B
Plaintext
13 lines
517 B
Plaintext
diff -up tcl8.5.6/library/http/http.tcl.old tcl8.5.6/library/http/http.tcl
|
|
--- tcl8.5.6/library/http/http.tcl.old 2008-10-24 01:34:32.000000000 +0200
|
|
+++ tcl8.5.6/library/http/http.tcl 2009-03-31 09:19:44.000000000 +0200
|
|
@@ -946,6 +946,8 @@ proc http::Event {sock token} {
|
|
set state(state) "header"
|
|
if {[catch {gets $sock state(http)} n]} {
|
|
return [Finish $token $n]
|
|
+ } elseif {$n >= 0} {
|
|
+ set state(state) "header"
|
|
}
|
|
} elseif {$state(state) eq "header"} {
|
|
if {[catch {gets $sock line} n]} {
|