diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-04-09 14:32:26 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-04-09 14:32:26 (GMT) |
| commit | dc32232f03c2fa6dfb75ee8ca0ac4767a2a4db12 (patch) | |
| tree | 9dab06ee4a431cbce0d09dcd6ec74bb036fb5819 /generic/tclIOSock.c | |
| parent | 26cbbcb5bfbd9c1910f9b51e67983c994f42e196 (diff) | |
| download | tcl-dc32232f03c2fa6dfb75ee8ca0ac4767a2a4db12.zip tcl-dc32232f03c2fa6dfb75ee8ca0ac4767a2a4db12.tar.gz tcl-dc32232f03c2fa6dfb75ee8ca0ac4767a2a4db12.tar.bz2 | |
TIP 468 implementation from Shannon Noe.
Diffstat (limited to 'generic/tclIOSock.c')
| -rw-r--r-- | generic/tclIOSock.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclIOSock.c b/generic/tclIOSock.c index 8ad268a..858c58e 100644 --- a/generic/tclIOSock.c +++ b/generic/tclIOSock.c @@ -307,9 +307,8 @@ Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, char portbuf[TCL_INTEGER_SPACE]; TclFormatInt(portbuf, port); - - return Tcl_OpenTcpServerEx(interp, portbuf, host, TCL_TCPSERVER_REUSEADDR, - acceptProc, callbackData); + return Tcl_OpenTcpServerEx(interp, portbuf, host, -1, + TCL_TCPSERVER_REUSEADDR, acceptProc, callbackData); } /* |