diff options
author | oehhar <harald.oehlmann@elmicron.de> | 2017-08-31 09:46:40 (GMT) |
---|---|---|
committer | oehhar <harald.oehlmann@elmicron.de> | 2017-08-31 09:46:40 (GMT) |
commit | bdc307175af002642d38ee0acc55e3b1452a06b7 (patch) | |
tree | 2f7be63e53082f24257be988dc3861a3bd98c726 /library/http/http.tcl | |
parent | dac1d5114ad11896c33892c9400f9747b8dbc22a (diff) | |
parent | 77770594c9c9ae90a3a91b566d775f7a04e9515d (diff) | |
download | tcl-bdc307175af002642d38ee0acc55e3b1452a06b7.zip tcl-bdc307175af002642d38ee0acc55e3b1452a06b7.tar.gz tcl-bdc307175af002642d38ee0acc55e3b1452a06b7.tar.bz2 |
http state 100 continue handling broken [2a94652ee1]
Diffstat (limited to 'library/http/http.tcl')
-rw-r--r-- | library/http/http.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index 0350808..9f5310b 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -11,7 +11,7 @@ package require Tcl 8.6- # Keep this in sync with pkgIndex.tcl and with the install directories in # Makefiles -package provide http 2.8.11 +package provide http 2.8.12 namespace eval http { # Allow resourcing to not clobber existing data @@ -1027,6 +1027,7 @@ proc http::Event {sock token} { # We have now read all headers # We ignore HTTP/1.1 100 Continue returns. RFC2616 sec 8.2.3 if {$state(http) == "" || ([regexp {^\S+\s(\d+)} $state(http) {} x] && $x == 100)} { + set state(state) "connecting" return } |