diff options
Diffstat (limited to 'examples/tcp.server')
| -rw-r--r-- | examples/tcp.server | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/examples/tcp.server b/examples/tcp.server index 1240f2b..a86cd63 100644 --- a/examples/tcp.server +++ b/examples/tcp.server @@ -6,7 +6,8 @@ set s [socket stream.server 20000] $s readable { # Clean up children os.wait -nohang 0 - set sock [$s accept] + set sock [$s accept addr] + puts "Client address: $addr" # Make this server forking so we can accept multiple # simultaneous connections |