diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-19 12:02:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-19 12:02:11 (GMT) |
| commit | 3cc7a1e95368183b0fa58aec6b758eea75199bc4 (patch) | |
| tree | 84a38961674b5fb08a01958dbcc2b6585d78564d /tests/httpd11.tcl | |
| parent | 0625218c8505d265ee7d2da3d8c7f7aad6879cf7 (diff) | |
| parent | 203f1d691d5ce37bcf8411aba1dd89968423d97f (diff) | |
| download | tcl-3cc7a1e95368183b0fa58aec6b758eea75199bc4.zip tcl-3cc7a1e95368183b0fa58aec6b758eea75199bc4.tar.gz tcl-3cc7a1e95368183b0fa58aec6b758eea75199bc4.tar.bz2 | |
Merge 9.0. Backout previous commit
Diffstat (limited to 'tests/httpd11.tcl')
| -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" |