diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-18 09:16:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-18 09:16:39 (GMT) |
| commit | 52491f0de0c7bbde5ca0400909d43a54b2fd5201 (patch) | |
| tree | 84a96c3895c4a7a559864864d04480126c4a1862 /library/http/http.tcl | |
| parent | 4ba2d9a81ad7f1d8b015c4f3f1dd0e6f603ecc3b (diff) | |
| download | tcl-52491f0de0c7bbde5ca0400909d43a54b2fd5201.zip tcl-52491f0de0c7bbde5ca0400909d43a54b2fd5201.tar.gz tcl-52491f0de0c7bbde5ca0400909d43a54b2fd5201.tar.bz2 | |
Cherry-pick [http://core.tcl.tk/tclconfig/info/18e79736d236d15d|All the world was a VAX] for OpenBSD. Also fix [http://core.tcl.tk/tk/tktview?name=84a27b1c67|84a27b1c67]: Tcl and Tk's tcl.m4 not synced?
(configure script not re-generated yet, I'm sure Don will do that in the rc branch)
Diffstat (limited to 'library/http/http.tcl')
| -rw-r--r-- | library/http/http.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index d950441..0350808 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -206,7 +206,7 @@ proc http::Finish {token {errormsg ""} {skipCB 0}} { set state(error) [list $errormsg $errorInfo $errorCode] set state(status) "error" } - if { ($state(status) eq "timeout") + if { ($state(status) eq "timeout") || ($state(status) eq "error") || ([info exists state(-keepalive)] && !$state(-keepalive)) || ([info exists state(connection)] && ($state(connection) eq "close")) |