diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-09-17 13:44:59 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-09-24 14:55:46 +1000 |
| commit | ecf2bd2c63a831984d04f21c6205d028b9df0889 (patch) | |
| tree | abdc09223835f1fccc4a30ef4bffdfbdfec6a1e2 /examples/tcp.server | |
| parent | 603d6e443cb2d9f8b83d75483985c59b2044d74e (diff) | |
| download | jimtcl-ecf2bd2c63a831984d04f21c6205d028b9df0889.zip jimtcl-ecf2bd2c63a831984d04f21c6205d028b9df0889.tar.gz jimtcl-ecf2bd2c63a831984d04f21c6205d028b9df0889.tar.bz2 | |
Restucture jim-aio for less duplication of code
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'examples/tcp.server')
| -rw-r--r-- | examples/tcp.server | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/tcp.server b/examples/tcp.server index 1e400fb..1240f2b 100644 --- a/examples/tcp.server +++ b/examples/tcp.server @@ -4,6 +4,8 @@ set s [socket stream.server 20000] $s readable { + # Clean up children + os.wait -nohang 0 set sock [$s accept] # Make this server forking so we can accept multiple |