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 | 63e77cfac497ed6dc339c4b229d28bb30951e939 (patch) | |
| tree | 931ab6df9f232b9c63ba879a489f5b19f4ef5272 /library | |
| parent | db87fb7c42f4f45e4ad053f9c3d73d5ace2d44ed (diff) | |
| parent | ec28ad63ee76f1827bd000aecc3506d25c484776 (diff) | |
| download | tcl-63e77cfac497ed6dc339c4b229d28bb30951e939.zip tcl-63e77cfac497ed6dc339c4b229d28bb30951e939.tar.gz tcl-63e77cfac497ed6dc339c4b229d28bb30951e939.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")) |