From ba5939ea3bf47fc00db9172391b3d68e24539921 Mon Sep 17 00:00:00 2001
From: max <max@tclers.tk>
Date: Fri, 27 May 2011 17:50:38 +0000
Subject: fix a timing issue in socket-12.3

---
 tests/socket.test | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/socket.test b/tests/socket.test
index f1acedc..83bad09 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -1610,7 +1610,7 @@ test socket_$af-12.3 {testing inheritance of accepted sockets} -setup {
     # If the socket is still open after 5 seconds, the script1 process must
     # have inherited the accepted socket.
     set failed 0
-    after 5000 set failed 1
+    set after [after 5000 [list set failed 1]]
     proc getdata { file } {
 	# Read handler on the client socket.
 	global x
@@ -1637,6 +1637,7 @@ test socket_$af-12.3 {testing inheritance of accepted sockets} -setup {
     vwait x
     return $x
 } -cleanup {
+    after cancel $after
     catch {close $p}
 } -result {accepted socket was not inherited}
 
-- 
cgit v0.12