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 | 8bdc7941770d91df0f7f258d97a0bd1951e0a1dd (patch) | |
| tree | 84a96c3895c4a7a559864864d04480126c4a1862 /library | |
| parent | f32ecd5894792d7327b82d03ce280b2268ff5233 (diff) | |
| download | tcl-8bdc7941770d91df0f7f258d97a0bd1951e0a1dd.zip tcl-8bdc7941770d91df0f7f258d97a0bd1951e0a1dd.tar.gz tcl-8bdc7941770d91df0f7f258d97a0bd1951e0a1dd.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')
| -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")) |