diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-18 09:24:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-18 09:24:30 (GMT) |
| commit | 73feff46e656d2ee6261f8b23e87999677f43986 (patch) | |
| tree | 3a4406772572185da7a320adc7b3ab05a7af034a /library | |
| parent | cb4e793d3cde6208d1c12686b85a52f48deec156 (diff) | |
| parent | 52491f0de0c7bbde5ca0400909d43a54b2fd5201 (diff) | |
| download | tcl-73feff46e656d2ee6261f8b23e87999677f43986.zip tcl-73feff46e656d2ee6261f8b23e87999677f43986.tar.gz tcl-73feff46e656d2ee6261f8b23e87999677f43986.tar.bz2 | |
merge core-8-6-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")) |