diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-03 14:01:24 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-03 14:01:24 (GMT) |
| commit | 69c9746bd1fb5d903ee327444835805a4a99786f (patch) | |
| tree | 4f5a49a07c80f5932ba1dc6e7e44bbbb3e5585e8 /tests/httpd | |
| parent | 3d187689a8b892947e975457d3784bdc50b6ded0 (diff) | |
| download | tcl-69c9746bd1fb5d903ee327444835805a4a99786f.zip tcl-69c9746bd1fb5d903ee327444835805a4a99786f.tar.gz tcl-69c9746bd1fb5d903ee327444835805a4a99786f.tar.bz2 | |
Improve reliability of test httpold-4.12. Thanks AF!
Diffstat (limited to 'tests/httpd')
| -rw-r--r-- | tests/httpd | 2 |
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 |