diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-19 11:56:58 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-19 11:56:58 (GMT) |
commit | 800d78f04d79def339bde5edb9042b6288524460 (patch) | |
tree | 58339a0bf60fa1aba40ab3762e298a61f08d619a | |
parent | 291ff6db1bd984a81e33e093fce433f8a4967f33 (diff) | |
download | tcl-800d78f04d79def339bde5edb9042b6288524460.zip tcl-800d78f04d79def339bde5edb9042b6288524460.tar.gz tcl-800d78f04d79def339bde5edb9042b6288524460.tar.bz2 |
Don't let httpd11 depend on the system encoding any more: All text files are now stored in utf-8.
-rw-r--r-- | tests/httpd11.tcl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/httpd11.tcl b/tests/httpd11.tcl index b605005..e97f403 100644 --- a/tests/httpd11.tcl +++ b/tests/httpd11.tcl @@ -150,7 +150,11 @@ proc Service {chan addr port} { if {[file exists $path] && [file isfile $path]} { foreach {what type} [mime-type $path] break set f [open $path r] - if {$what eq "binary"} {chan configure $f -translation binary} + if {$what eq "binary"} { + chan configure $f -translation binary} + } else { + chan configure $f -encoding utf-8} + } set data [read $f] close $f set code "200 OK" |