summaryrefslogtreecommitdiffstats
path: root/library/http/http.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2015-05-14 08:05:37 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2015-05-14 08:05:37 (GMT)
commite333cabdeec6802bacdab621d6567618954581e6 (patch)
tree535da7010f103cd3f7fe9a248b89e8d749c0657f /library/http/http.tcl
parent76caae45f6017bfb0bb12a45f978e3d24b0dcfa5 (diff)
downloadtcl-e333cabdeec6802bacdab621d6567618954581e6.zip
tcl-e333cabdeec6802bacdab621d6567618954581e6.tar.gz
tcl-e333cabdeec6802bacdab621d6567618954581e6.tar.bz2
[b9d0434667] Prefer the gzip encoding for transfers. It's less efficient, but
it is far more interoperable and that's a more important metric.
Diffstat (limited to 'library/http/http.tcl')
-rw-r--r--library/http/http.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl
index a6b2bfd..4870f4a 100644
--- a/library/http/http.tcl
+++ b/library/http/http.tcl
@@ -739,7 +739,7 @@ proc http::Connected { token proto phost srvurl} {
}
}
if {!$accept_encoding_seen && ![info exists state(-handler)]} {
- puts $sock "Accept-Encoding: deflate,gzip,compress"
+ puts $sock "Accept-Encoding: gzip,deflate,compress"
}
if {$isQueryChannel && $state(querylength) == 0} {
# Try to determine size of data in channel. If we cannot seek, the