diff options
| author | max@tclers.tk (Reinhard Max) <max> | 2011-08-29 23:24:36 (GMT) |
|---|---|---|
| committer | max@tclers.tk (Reinhard Max) <max> | 2011-08-29 23:24:36 (GMT) |
| commit | d1558c51b0d87aa9c1e8e0e44ae240d9d42342e9 (patch) | |
| tree | 5f3032d1d13521ec3e1ea518ae2dee08a106b428 /unix/tclUnixSock.c | |
| parent | 4fb2f6eddf0290e9ba378bd3fed793c519e2d9c1 (diff) | |
| download | tcl-d1558c51b0d87aa9c1e8e0e44ae240d9d42342e9.zip tcl-d1558c51b0d87aa9c1e8e0e44ae240d9d42342e9.tar.gz tcl-d1558c51b0d87aa9c1e8e0e44ae240d9d42342e9.tar.bz2 | |
Put back the check for server sockets (bug #3394732).
Diffstat (limited to 'unix/tclUnixSock.c')
| -rw-r--r-- | unix/tclUnixSock.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/unix/tclUnixSock.c b/unix/tclUnixSock.c index f302b70..35c00c5 100644 --- a/unix/tclUnixSock.c +++ b/unix/tclUnixSock.c @@ -816,6 +816,15 @@ TcpWatchProc( * TCL_EXCEPTION. */ { TcpState *statePtr = (TcpState *) instanceData; + + if (statePtr->acceptProc != NULL) { + /* + * Make sure we don't mess with server sockets since they will never + * be readable or writable at the Tcl level. This keeps Tcl scripts + * from interfering with the -accept behavior (bug #3394732). + */ + return; + } if (statePtr->flags & TCP_ASYNC_CONNECT) { /* Async sockets use a FileHandler internally while connecting, so we |