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 | e7d31b9449627e1366d5127c104769228337d653 (patch) | |
| tree | 4f5a49a07c80f5932ba1dc6e7e44bbbb3e5585e8 | |
| parent | d421fc1bdfd3d2161b1e9425ec83b3839c76573e (diff) | |
| download | tcl-e7d31b9449627e1366d5127c104769228337d653.zip tcl-e7d31b9449627e1366d5127c104769228337d653.tar.gz tcl-e7d31b9449627e1366d5127c104769228337d653.tar.bz2 | |
Improve reliability of test httpold-4.12. Thanks AF!
| -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 |