diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-06-21 15:57:01 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-06-21 15:57:01 (GMT) |
commit | 7231e548e3e4154a4c7eae06aa395288c5a5dc64 (patch) | |
tree | 2bf828c13bbabb4df0413a2aab3e80195f669593 /library | |
parent | 97399b2494ad5212668ee6daac2929a4d48cee3f (diff) | |
parent | 5bbb147862ea23bdd98ad9dbcb4c539da07a9bbc (diff) | |
download | tcl-7231e548e3e4154a4c7eae06aa395288c5a5dc64.zip tcl-7231e548e3e4154a4c7eae06aa395288c5a5dc64.tar.gz tcl-7231e548e3e4154a4c7eae06aa395288c5a5dc64.tar.bz2 |
Merge 8.7
Diffstat (limited to 'library')
-rw-r--r-- | library/http/http.tcl | 6 | ||||
-rw-r--r-- | library/http/pkgIndex.tcl | 2 | ||||
-rw-r--r-- | library/manifest.txt | 2 |
3 files changed, 4 insertions, 6 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index baa3caa..a7ed771 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -11,7 +11,7 @@ package require Tcl 8.6- # Keep this in sync with pkgIndex.tcl and with the install directories in # Makefiles -package provide http 2.9.1 +package provide http 2.9.2 namespace eval http { # Allow resourcing to not clobber existing data @@ -1349,9 +1349,7 @@ proc http::Connected {token proto phost srvurl} { set how POST # The query channel must be blocking for the async Write to # work properly. - lassign [fconfigure $sock -translation] trRead trWrite - fconfigure $state(-querychannel) -blocking 1 \ - -translation [list $trRead binary] + fconfigure $state(-querychannel) -blocking 1 -translation binary set contDone 0 } if {[info exists state(-method)] && ($state(-method) ne "")} { diff --git a/library/http/pkgIndex.tcl b/library/http/pkgIndex.tcl index f9f1176..4f5eafb 100644 --- a/library/http/pkgIndex.tcl +++ b/library/http/pkgIndex.tcl @@ -1,2 +1,2 @@ if {![package vsatisfies [package provide Tcl] 8.6-]} {return} -package ifneeded http 2.9.1 [list tclPkgSetup $dir http 2.9.1 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister ::http::mapReply}}}] +package ifneeded http 2.9.2 [list tclPkgSetup $dir http 2.9.2 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister ::http::mapReply}}}] diff --git a/library/manifest.txt b/library/manifest.txt index 407cd88..c1d7d05 100644 --- a/library/manifest.txt +++ b/library/manifest.txt @@ -5,7 +5,7 @@ apply {{dir} { set ::test [info script] set isafe [interp issafe] foreach {safe package version file} { - 0 http 2.9.1 {http http.tcl} + 0 http 2.9.2 {http http.tcl} 1 msgcat 1.7.0 {msgcat msgcat.tcl} 1 opt 0.4.7 {opt optparse.tcl} 0 cookiejar 0.2.0 {cookiejar cookiejar.tcl} |