summaryrefslogtreecommitdiffstats
path: root/library/http
diff options
context:
space:
mode:
authoroehhar <harald.oehlmann@elmicron.de>2021-12-03 12:04:40 (GMT)
committeroehhar <harald.oehlmann@elmicron.de>2021-12-03 12:04:40 (GMT)
commitc7157e0bbdcf351b626e52b5b521a8a68d6334d6 (patch)
treeb52ce6d0000c8162ab06d926b93858a5735fac30 /library/http
parent43b8bf64301dcc8edaad610a7d8a2a21091171be (diff)
downloadtcl-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/http')
-rw-r--r--library/http/http.tcl8
-rw-r--r--library/http/pkgIndex.tcl2
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}}}]