diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-19 11:45:22 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-19 11:45:22 (GMT) |
| commit | 8e6d7429e9bdf8f9dd5f61109534b589965d9283 (patch) | |
| tree | 5ce64fbc0a872c5022e6e4bfbf429848db730bdd /library | |
| parent | d5ac687adb2b0e67f8afcdf007890d6da415f26c (diff) | |
| parent | 291ff6db1bd984a81e33e093fce433f8a4967f33 (diff) | |
| download | tcl-8e6d7429e9bdf8f9dd5f61109534b589965d9283.zip tcl-8e6d7429e9bdf8f9dd5f61109534b589965d9283.tar.gz tcl-8e6d7429e9bdf8f9dd5f61109534b589965d9283.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library')
| -rw-r--r-- | library/http/http.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index c0f6e5d..79f876a 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -1747,7 +1747,7 @@ proc http::OpenSocket {token DoLater} { fconfigure $sock -translation {auto crlf} \ -buffersize $state(-blocksize) if {[package vsatisfies [package provide Tcl] 9.0-]} { - fconfigure $sock -profile tcl8 \ + fconfigure $sock -profile tcl8 } ##Log socket opened, DONE fconfigure - token $token } @@ -2168,7 +2168,7 @@ proc http::Connected {token proto phost srvurl} { fconfigure $sock -translation [list $trRead crlf] \ -buffersize $state(-blocksize) if {[package vsatisfies [package provide Tcl] 9.0-]} { - fconfigure $sock -profile tcl8 \ + fconfigure $sock -profile tcl8 } # The following is disallowed in safe interpreters, but the socket is @@ -2561,7 +2561,7 @@ proc http::ReceiveResponse {token} { fconfigure $sock -translation [list auto $trWrite] \ -buffersize $state(-blocksize) if {[package vsatisfies [package provide Tcl] 9.0-]} { - fconfigure $sock -profile tcl8 \ + fconfigure $sock -profile tcl8 } Log ^D$tk begin receiving response - token $token |