diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-05 07:57:06 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-05 07:57:06 (GMT) |
| commit | 984c4923d6abb322e755dcde5b14bc19747eb8b8 (patch) | |
| tree | 81285a3f1d78895d9f807681638a409ea60f0440 /tests | |
| parent | 4d139bcdd3359f4e4d35db3d5fce67c6b528532c (diff) | |
| parent | 6f640f9e5701a60ac0fbde981742fd3a80f59d18 (diff) | |
| download | tcl-984c4923d6abb322e755dcde5b14bc19747eb8b8.zip tcl-984c4923d6abb322e755dcde5b14bc19747eb8b8.tar.gz tcl-984c4923d6abb322e755dcde5b14bc19747eb8b8.tar.bz2 | |
merge trunkdkf_compile_improvements
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 |