diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-03 20:31:31 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-03 20:31:31 (GMT) |
| commit | 68d9ec32251e4fef72df8960441ff9784a7b8381 (patch) | |
| tree | 6e8dee7119656a6c0e133368223d2a162c424538 /tests | |
| parent | 312d727024ac9e43d8989d411361cb1d0b50b9b5 (diff) | |
| parent | 596b5e9c70fd7bbef2a6d801c647bb939482961a (diff) | |
| download | tcl-68d9ec32251e4fef72df8960441ff9784a7b8381.zip tcl-68d9ec32251e4fef72df8960441ff9784a7b8381.tar.gz tcl-68d9ec32251e4fef72df8960441ff9784a7b8381.tar.bz2 | |
merge 8.4
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 |