diff options
| author | rmax <rmax> | 2010-11-04 21:38:27 (GMT) |
|---|---|---|
| committer | rmax <rmax> | 2010-11-04 21:38:27 (GMT) |
| commit | 40982eff28bbd9747f3dd16ef8156a9c845859ae (patch) | |
| tree | d316358e18618ba9da2703ac7b0f833c52597ae8 /tests/remote.tcl | |
| parent | db819167b9f2bcbee2028394a1f09cac1996bc2e (diff) | |
| download | tcl-40982eff28bbd9747f3dd16ef8156a9c845859ae.zip tcl-40982eff28bbd9747f3dd16ef8156a9c845859ae.tar.gz tcl-40982eff28bbd9747f3dd16ef8156a9c845859ae.tar.bz2 | |
some more speedups to socket.test
Diffstat (limited to 'tests/remote.tcl')
| -rw-r--r-- | tests/remote.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/remote.tcl b/tests/remote.tcl index fd50b51..06000aa 100644 --- a/tests/remote.tcl +++ b/tests/remote.tcl @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: remote.tcl,v 1.4 2010/09/28 15:13:55 rmax Exp $ +# RCS: @(#) $Id: remote.tcl,v 1.5 2010/11/04 21:38:27 rmax Exp $ # Initialize message delimitor @@ -156,5 +156,6 @@ if {[catch {set serverSocket \ [socket -myaddr $serverAddress -server __accept__ $serverPort]} msg]} { puts "Server on $serverAddress:$serverPort cannot start: $msg" } else { + puts ready vwait __server_wait_variable__ } |