diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-03 22:38:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-03 22:38:33 (GMT) |
| commit | 40f6d3ee82fbc25d07702ff87bdf6449b892a2fa (patch) | |
| tree | b00c619355e807a6f2386d82449c4dc319ad8e03 /tests/httpd | |
| parent | cf0124589c255bd43e3b1970e89d7342efaca198 (diff) | |
| parent | a097532afd2bcc8ae2869c9d53df714774adfaf6 (diff) | |
| download | tcl-40f6d3ee82fbc25d07702ff87bdf6449b892a2fa.zip tcl-40f6d3ee82fbc25d07702ff87bdf6449b892a2fa.tar.gz tcl-40f6d3ee82fbc25d07702ff87bdf6449b892a2fa.tar.bz2 | |
merge trunk
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 f810797..232e80a 100644 --- a/tests/httpd +++ b/tests/httpd @@ -40,7 +40,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 |