diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-25 16:13:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-25 16:13:03 (GMT) |
| commit | 34aa927a148445f61ce5e2cc2a3403fc2a681255 (patch) | |
| tree | bb9c5c140c638429ffe9c1c8115bf9c589eab183 /library | |
| parent | 7c4cabaaae8d1f5b351e2016d56308e2531cca9b (diff) | |
| parent | e14cd07627b4ca6018dc89e9333418965ef0d56b (diff) | |
| download | tcl-34aa927a148445f61ce5e2cc2a3403fc2a681255.zip tcl-34aa927a148445f61ce5e2cc2a3403fc2a681255.tar.gz tcl-34aa927a148445f61ce5e2cc2a3403fc2a681255.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library')
| -rw-r--r-- | library/http/http.tcl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index 6e2ac4e..f9ec8ca 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -2698,18 +2698,18 @@ proc http::Event {sock token} { if {$tmpHeader in {close keep-alive}} { # The common cases, continue. } elseif {[string first , $tmpHeader] == -1} { - # Not a comma-separated list, not "close", - # therefore "keep-alive". - set tmpHeader keep-alive + # Not a comma-separated list, not "close", + # therefore "keep-alive". + set tmpHeader keep-alive } else { - set tmpHeader keep-alive - set tmpCsl [split $tmpHeader ,] - # Optional whitespace either side of separator. - foreach el $tmpCsl { - if {[string trim $el] eq {close}} { + set tmpHeader keep-alive + set tmpCsl [split $tmpHeader ,] + # Optional whitespace either side of separator. + foreach el $tmpCsl { + if {[string trim $el] eq {close}} { set tmpHeader close break - } + } } } set state(connection) $tmpHeader |