diff options
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 |