summaryrefslogtreecommitdiffstats
path: root/library/http
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-04-18 19:01:51 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-04-18 19:01:51 (GMT)
commit681a97f23f6dac0cf64084ca04dfa2e9cd422114 (patch)
treea0446b76d3da765b1827a28cce09e73b8fb15b62 /library/http
parent5daf5b67489f659bb4121e61ede89ec9f4b828fb (diff)
downloadtcl-681a97f23f6dac0cf64084ca04dfa2e9cd422114.zip
tcl-681a97f23f6dac0cf64084ca04dfa2e9cd422114.tar.gz
tcl-681a97f23f6dac0cf64084ca04dfa2e9cd422114.tar.bz2
Fix [bc432269b74e9b246bf01f354714fed47cb227ed|bc432269]: http fails in a safe interpreter
Diffstat (limited to 'library/http')
-rw-r--r--library/http/http.tcl17
1 files changed, 13 insertions, 4 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl
index ccd4cd1..03751a3 100644
--- a/library/http/http.tcl
+++ b/library/http/http.tcl
@@ -28,10 +28,19 @@ namespace eval http {
# We need a useragent string of this style or various servers will refuse to
# send us compressed content even when we ask for it. This follows the
# de-facto layout of user-agent strings in current browsers.
- set http(-useragent) "Mozilla/5.0\
- ([string totitle $::tcl_platform(platform)]; U;\
- $::tcl_platform(os) $::tcl_platform(osVersion))\
- http/[package provide http] Tcl/[package provide Tcl]"
+ # Safe interpreters do not have ::tcl_platform(os) or
+ # ::tcl_platform(osVersion).
+ if {[interp issafe]} {
+ set http(-useragent) "Mozilla/5.0\
+ (Windows; U;\
+ Windows NT 10.0)\
+ http/[package provide http] Tcl/[package provide Tcl]"
+ } else {
+ set http(-useragent) "Mozilla/5.0\
+ ([string totitle $::tcl_platform(platform)]; U;\
+ $::tcl_platform(os) $::tcl_platform(osVersion))\
+ http/[package provide http] Tcl/[package provide Tcl]"
+ }
}
proc init {} {