diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-13 10:18:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-13 10:18:53 (GMT) |
| commit | 8bb2aa5ce5611245e79c56e1dd6ad0aab2e403b0 (patch) | |
| tree | ae8919ec15b47b996957fdcd0ccaccceec5d4692 /library | |
| parent | 2150f5797a81640b55d3ba52d11cb9539c20982f (diff) | |
| parent | a7d78a8fb4183478700856b8ba6471d5157e8a5a (diff) | |
| download | tcl-8bb2aa5ce5611245e79c56e1dd6ad0aab2e403b0.zip tcl-8bb2aa5ce5611245e79c56e1dd6ad0aab2e403b0.tar.gz tcl-8bb2aa5ce5611245e79c56e1dd6ad0aab2e403b0.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library')
| -rw-r--r-- | library/http/http.tcl | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index 187d203..87003e4 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -3539,18 +3539,8 @@ proc http::mapReply {string} { # a pre-computed map and [string map] to do the conversion (much faster # than [regsub]/[subst]). [Bug 1020491] - if {$http(-urlencoding) ne ""} { - set string [encoding convertto $http(-urlencoding) $string] - return [string map $formMap $string] - } - set converted [string map $formMap $string] - if {[string match "*\[\u0100-\uffff\]*" $converted]} { - regexp "\[\u0100-\uffff\]" $converted badChar - # Return this error message for maximum compatibility... :^/ - return -code error \ - "can't read \"formMap($badChar)\": no such element in array" - } - return $converted + set string [encoding convertto $http(-urlencoding) $string] + return [string map $formMap $string] } interp alias {} http::quoteString {} http::mapReply |