diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-03 20:31:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-03 20:31:58 (GMT) |
| commit | 60c6195c4c60a3493f13ecb118fe433cfbd4af98 (patch) | |
| tree | 2819b0d8c05dd43fd8ef3bf605159257243774f3 /tests | |
| parent | bcc20b58f79b107e5877ba74855fd4f5b6f567df (diff) | |
| parent | 68d9ec32251e4fef72df8960441ff9784a7b8381 (diff) | |
| download | tcl-60c6195c4c60a3493f13ecb118fe433cfbd4af98.zip tcl-60c6195c4c60a3493f13ecb118fe433cfbd4af98.tar.gz tcl-60c6195c4c60a3493f13ecb118fe433cfbd4af98.tar.bz2 | |
merge 8.5
Diffstat (limited to 'tests')
| -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 |