diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-03-20 02:38:36 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-03-20 02:38:36 (GMT) |
| commit | 921b0dfdeab784bd9d8f8071100db8156c48a1ae (patch) | |
| tree | 85c01ffd3f2974ea1c6a61978c7176e8c5fb23c9 /tests/httpd11.tcl | |
| parent | 203f1d691d5ce37bcf8411aba1dd89968423d97f (diff) | |
| parent | 75664c655d15e9308cf62fcdaee3bed1c4545c63 (diff) | |
| download | tcl-921b0dfdeab784bd9d8f8071100db8156c48a1ae.zip tcl-921b0dfdeab784bd9d8f8071100db8156c48a1ae.tar.gz tcl-921b0dfdeab784bd9d8f8071100db8156c48a1ae.tar.bz2 | |
Merge 8.7 - Fix http11 test hang
Diffstat (limited to 'tests/httpd11.tcl')
| -rw-r--r-- | tests/httpd11.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/httpd11.tcl b/tests/httpd11.tcl index e97f403..9e0edcd 100644 --- a/tests/httpd11.tcl +++ b/tests/httpd11.tcl @@ -151,9 +151,9 @@ proc Service {chan addr port} { foreach {what type} [mime-type $path] break set f [open $path r] if {$what eq "binary"} { - chan configure $f -translation binary} + chan configure $f -translation binary } else { - chan configure $f -encoding utf-8} + chan configure $f -encoding utf-8 } set data [read $f] close $f |