diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2021-12-03 12:04:40 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2021-12-03 12:04:40 (GMT) |
| commit | c7157e0bbdcf351b626e52b5b521a8a68d6334d6 (patch) | |
| tree | b52ce6d0000c8162ab06d926b93858a5735fac30 /library | |
| parent | 43b8bf64301dcc8edaad610a7d8a2a21091171be (diff) | |
| download | tcl-c7157e0bbdcf351b626e52b5b521a8a68d6334d6.zip tcl-c7157e0bbdcf351b626e52b5b521a8a68d6334d6.tar.gz tcl-c7157e0bbdcf351b626e52b5b521a8a68d6334d6.tar.bz2 | |
RFE [eb64b1520] http: be tolerant against invalid content encoding header responses
Diffstat (limited to 'library')
| -rw-r--r-- | library/http/http.tcl | 8 | ||||
| -rw-r--r-- | library/http/pkgIndex.tcl | 2 |
2 files changed, 7 insertions, 3 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index b0f87de..9f8d7ff 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.9.5 +package provide http 2.9.6 namespace eval http { # Allow resourcing to not clobber existing data @@ -3457,8 +3457,12 @@ proc http::ContentEncoding {token} { gzip - x-gzip { lappend r gunzip } compress - x-compress { lappend r decompress } identity {} + br { + return -code error\ + "content-encoding \"br\" not implemented" + } default { - return -code error "unsupported content-encoding \"$coding\"" + Log "unknown content-encoding \"$coding\" ignored" } } } diff --git a/library/http/pkgIndex.tcl b/library/http/pkgIndex.tcl index 74c4841..7249547 100644 --- a/library/http/pkgIndex.tcl +++ b/library/http/pkgIndex.tcl @@ -1,2 +1,2 @@ if {![package vsatisfies [package provide Tcl] 8.6-]} {return} -package ifneeded http 2.9.5 [list tclPkgSetup $dir http 2.9.5 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister ::http::mapReply}}}] +package ifneeded http 2.9.6 [list tclPkgSetup $dir http 2.9.6 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister ::http::mapReply}}}] |