summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-06-03 14:01:24 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-06-03 14:01:24 (GMT)
commit69c9746bd1fb5d903ee327444835805a4a99786f (patch)
tree4f5a49a07c80f5932ba1dc6e7e44bbbb3e5585e8
parent3d187689a8b892947e975457d3784bdc50b6ded0 (diff)
downloadtcl-69c9746bd1fb5d903ee327444835805a4a99786f.zip
tcl-69c9746bd1fb5d903ee327444835805a4a99786f.tar.gz
tcl-69c9746bd1fb5d903ee327444835805a4a99786f.tar.bz2
Improve reliability of test httpold-4.12. Thanks AF!
-rw-r--r--tests/httpd2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/httpd b/tests/httpd
index 3ea8024..7ba07af 100644
--- a/tests/httpd
+++ b/tests/httpd
@@ -39,7 +39,7 @@ proc httpdAccept {newsock ipaddr port} {
fconfigure $newsock -blocking 0 -translation {auto crlf}
httpd_log $newsock Connect $ipaddr $port
set data(ipaddr) $ipaddr
- fileevent $newsock readable [list httpdRead $newsock]
+ after 50 [list fileevent $newsock readable [list httpdRead $newsock]]
}
# read data from a client request