diff options
| author | hobbs <hobbs> | 2008-03-12 10:01:01 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2008-03-12 10:01:01 (GMT) |
| commit | e30c6b2c79b5d0287da601face8b8a84d00f893e (patch) | |
| tree | 66f63f88c67882186a76efe244620be661569c5d /library | |
| parent | abb6e593c4fe93a99241275011aaa97b6a259485 (diff) | |
| download | tcl-e30c6b2c79b5d0287da601face8b8a84d00f893e.zip tcl-e30c6b2c79b5d0287da601face8b8a84d00f893e.tar.gz tcl-e30c6b2c79b5d0287da601face8b8a84d00f893e.tar.bz2 | |
change http::geturl -keepalive default to 0 as it has poor true pipeline support
Diffstat (limited to 'library')
| -rw-r--r-- | library/http/http.tcl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index 98b1a64..84a1da2 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -8,7 +8,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.66 2008/03/12 09:51:38 hobbs Exp $ +# RCS: @(#) $Id: http.tcl,v 1.67 2008/03/12 10:01:02 hobbs Exp $ package require Tcl 8.4 # Keep this in sync with pkgIndex.tcl and with the install directories @@ -79,7 +79,7 @@ namespace eval http { # Let user control default keepalive for compatibility variable defaultKeepalive if {![info exists defaultKeepalive]} { - set defaultKeepalive 1 + set defaultKeepalive 0 } namespace export geturl config reset wait formatQuery register unregister @@ -570,6 +570,7 @@ proc http::geturl { url args } { # command callback (if available) because we're going to throw an # exception from here instead. + set state(sock) $sock Finish $token "" 1 cleanup $token return -code error $sock |