diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-03 17:26:10 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-03 17:26:10 (GMT) |
| commit | 6efc06566b9ee1b8ed7645920b7f37226cc00643 (patch) | |
| tree | e82c6ea75216223c2d056e6f4cfe8c90e0371150 /tests/httpd | |
| parent | d2673c18e756c5e38c377eee7ba8a1afbf8c0af1 (diff) | |
| parent | 596b5e9c70fd7bbef2a6d801c647bb939482961a (diff) | |
| download | tcl-core_8_4_20_rc.zip tcl-core_8_4_20_rc.tar.gz tcl-core_8_4_20_rc.tar.bz2 | |
Tag for release.core_8_4_20core_8_4_20_rc
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 |