diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-18 13:36:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-18 13:36:10 (GMT) |
| commit | 0625218c8505d265ee7d2da3d8c7f7aad6879cf7 (patch) | |
| tree | bc0190fda93ced0da24ad47df381cb3deb335aff /library/http | |
| parent | 219cbfee387a7d76e0229877f74ac889533a7e6f (diff) | |
| download | tcl-0625218c8505d265ee7d2da3d8c7f7aad6879cf7.zip tcl-0625218c8505d265ee7d2da3d8c7f7aad6879cf7.tar.gz tcl-0625218c8505d265ee7d2da3d8c7f7aad6879cf7.tar.bz2 | |
See if less "-profile replace" suffices
Diffstat (limited to 'library/http')
| -rw-r--r-- | library/http/http.tcl | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index 3410c46..c730eeb 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -1746,9 +1746,6 @@ proc http::OpenSocket {token DoLater} { } fconfigure $sock -translation {auto crlf} \ -buffersize $state(-blocksize) - if {[package vsatisfies [package provide Tcl] 9.0-]} { - fconfigure $sock -profile replace \ - } ##Log socket opened, DONE fconfigure - token $token } @@ -2167,9 +2164,6 @@ proc http::Connected {token proto phost srvurl} { lassign [fconfigure $sock -translation] trRead trWrite fconfigure $sock -translation [list $trRead crlf] \ -buffersize $state(-blocksize) - if {[package vsatisfies [package provide Tcl] 9.0-]} { - fconfigure $sock -profile replace \ - } # The following is disallowed in safe interpreters, but the socket is # already in non-blocking mode in that case. @@ -2560,9 +2554,6 @@ proc http::ReceiveResponse {token} { lassign [fconfigure $sock -translation] trRead trWrite fconfigure $sock -translation [list auto $trWrite] \ -buffersize $state(-blocksize) - if {[package vsatisfies [package provide Tcl] 9.0-]} { - fconfigure $sock -profile replace \ - } Log ^D$tk begin receiving response - token $token coroutine ${token}--EventCoroutine http::Event $sock $token @@ -4726,11 +4717,7 @@ proc http::quoteString {string} { # a pre-computed map and [string map] to do the conversion (much faster # than [regsub]/[subst]). [Bug 1020491] - if {[package vsatisfies [package provide Tcl] 9.0-]} { - set string [encoding convertto -profile replace $http(-urlencoding) $string] - } else { - set string [encoding convertto $http(-urlencoding) $string] - } + set string [encoding convertto $http(-urlencoding) $string] return [string map $formMap $string] } |