diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-18 09:10:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-18 09:10:24 (GMT) |
| commit | 219cbfee387a7d76e0229877f74ac889533a7e6f (patch) | |
| tree | 9fa7e6b8267e8ecdb1f9194358c36c07c76ee140 /library | |
| parent | 59a954a7ae13af5dfaa81f57ad5999061a2e03eb (diff) | |
| parent | d5ac687adb2b0e67f8afcdf007890d6da415f26c (diff) | |
| download | tcl-219cbfee387a7d76e0229877f74ac889533a7e6f.zip tcl-219cbfee387a7d76e0229877f74ac889533a7e6f.tar.gz tcl-219cbfee387a7d76e0229877f74ac889533a7e6f.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'library')
| -rw-r--r-- | library/http/http.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index fb49954..3410c46 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -4644,7 +4644,7 @@ proc http::GuessType {token} { if {[package vsatisfies [package provide Tcl] 9.0-]} { set state(body) [encoding convertfrom -profile replace $enc $state(body)] } else { - set state(body) [encoding convertfrom -profile replace $enc $state(body)] + set state(body) [encoding convertfrom $enc $state(body)] } set state(body) [string map {\r\n \n \r \n} $state(body)] set state(type) application/xml |