summaryrefslogtreecommitdiffstats
path: root/library/http/http.tcl
diff options
context:
space:
mode:
authorhobbs <hobbs>2008-03-12 10:01:01 (GMT)
committerhobbs <hobbs>2008-03-12 10:01:01 (GMT)
commite30c6b2c79b5d0287da601face8b8a84d00f893e (patch)
tree66f63f88c67882186a76efe244620be661569c5d /library/http/http.tcl
parentabb6e593c4fe93a99241275011aaa97b6a259485 (diff)
downloadtcl-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/http/http.tcl')
-rw-r--r--library/http/http.tcl5
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