diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-05-19 12:53:52 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-05-19 12:53:52 (GMT) |
| commit | 2f9e40fef10ab740283e34cf9679d62a78e56cda (patch) | |
| tree | 931ab6df9f232b9c63ba879a489f5b19f4ef5272 /library | |
| parent | 0d218fca03233fb98ac395f51eee88646695b5f0 (diff) | |
| parent | 8b5d3394c2827fa8bfa14ba8169b0139bc58195b (diff) | |
| download | tcl-2f9e40fef10ab740283e34cf9679d62a78e56cda.zip tcl-2f9e40fef10ab740283e34cf9679d62a78e56cda.tar.gz tcl-2f9e40fef10ab740283e34cf9679d62a78e56cda.tar.bz2 | |
merge 8.6
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")) |