diff options
| author | kjnash <k.j.nash@usa.net> | 2022-05-11 18:25:55 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2022-05-11 18:25:55 (GMT) |
| commit | a96ca020dfbf40d8a61669620d17c5a1e455a99a (patch) | |
| tree | 01d5a13890a19a921f78d7d91f3fb8d6965b9311 | |
| parent | cdea365a569c1ba3e22c816c475847b4bd3f5085 (diff) | |
| download | tcl-a96ca020dfbf40d8a61669620d17c5a1e455a99a.zip tcl-a96ca020dfbf40d8a61669620d17c5a1e455a99a.tar.gz tcl-a96ca020dfbf40d8a61669620d17c5a1e455a99a.tar.bz2 | |
Revise library/http/http.tcl to fix shift_jis typo and #6898f9cb71
| -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 e754264..838fbee 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -3479,7 +3479,7 @@ proc http::CharsetToEncoding {charset} { set encoding "iso8859-$num" } elseif {[regexp {iso-?2022-(jp|kr)} $charset -> ext]} { set encoding "iso2022-$ext" - } elseif {[regexp {shift[-_]?js} $charset]} { + } elseif {[regexp {shift[-_]?jis} $charset]} { set encoding "shiftjis" } elseif {[regexp {(?:windows|cp)-?([0-9]+)} $charset -> num]} { set encoding "cp$num" |