diff options
author | sandeep <sandeep> | 2000-04-05 00:30:14 (GMT) |
---|---|---|
committer | sandeep <sandeep> | 2000-04-05 00:30:14 (GMT) |
commit | 3cffb6ec71805a501fb2b5958a3d336f9630b2b8 (patch) | |
tree | 3faf2184d6c4e2b2c62352c9c3012e1db4d8166c /library/http2.1/http.tcl | |
parent | 654b797828a64252043684a8896212e371fbb59d (diff) | |
download | tcl-3cffb6ec71805a501fb2b5958a3d336f9630b2b8.zip tcl-3cffb6ec71805a501fb2b5958a3d336f9630b2b8.tar.gz tcl-3cffb6ec71805a501fb2b5958a3d336f9630b2b8.tar.bz2 |
2000-03-29 Sandeep Tamhankar <sandeep@scriptics.com>
* library/http2.1/http.tcl: For the -querychannel option,
fconfigure the socket to be binary so that we don't translate
anything while reading the data. This is because we determine the
content length of the data on the channel by using seek (to the end
of the file) and tell on the file handle, and we need the
content-length to match the amount of data actually sent, and
translation can affect the number of bytes posted.
Diffstat (limited to 'library/http2.1/http.tcl')
-rw-r--r-- | library/http2.1/http.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/http2.1/http.tcl b/library/http2.1/http.tcl index 617684c..c7369e4 100644 --- a/library/http2.1/http.tcl +++ b/library/http2.1/http.tcl @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and # redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: http.tcl,v 1.28 2000/03/29 20:19:59 sandeep Exp $ +# RCS: @(#) $Id: http.tcl,v 1.29 2000/04/05 00:30:15 sandeep Exp $ package provide http 2.3 ;# This uses Tcl namespaces @@ -365,7 +365,7 @@ proc http::geturl { url args } { set how POST # The query channel must be blocking for the async Write to # work properly. - fconfigure $state(-querychannel) -blocking 1 + fconfigure $state(-querychannel) -blocking 1 -translation binary set contDone 0 } |