diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-30 13:27:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-30 13:27:57 (GMT) |
| commit | 29b9dd2e6f727b0e941ebfb7137545d235f5d7ea (patch) | |
| tree | 8273c4a9b6d6e8e961792a8080f5f29a7cc5c171 /unix/tclUnixSock.c | |
| parent | 9d8c640e00e432782bc30d6dcbd78b83a959dfee (diff) | |
| parent | 64fdac4aec06a54d95bb8916c7a8e3cebf2cde20 (diff) | |
| download | tcl-29b9dd2e6f727b0e941ebfb7137545d235f5d7ea.zip tcl-29b9dd2e6f727b0e941ebfb7137545d235f5d7ea.tar.gz tcl-29b9dd2e6f727b0e941ebfb7137545d235f5d7ea.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'unix/tclUnixSock.c')
| -rw-r--r-- | unix/tclUnixSock.c | 23 |
1 files changed, 6 insertions, 17 deletions
diff --git a/unix/tclUnixSock.c b/unix/tclUnixSock.c index 09ed008..fcb508d 100644 --- a/unix/tclUnixSock.c +++ b/unix/tclUnixSock.c @@ -688,30 +688,19 @@ TcpClose2Proc( { TcpState *statePtr = instanceData; int errorCode = 0; - int sd; /* * Shutdown the OS socket handle. */ - - switch(flags) { - case TCL_CLOSE_READ: - sd = SHUT_RD; - break; - case TCL_CLOSE_WRITE: - sd = SHUT_WR; - break; - default: - if (interp) { - Tcl_SetObjResult(interp, Tcl_NewStringObj( - "socket close2proc called bidirectionally", -1)); - } - return TCL_ERROR; + if ((flags & (TCL_CLOSE_READ|TCL_CLOSE_WRITE)) == 0) { + return TcpCloseProc(instanceData, interp); } - if (shutdown(statePtr->fds.fd,sd) < 0) { + if ((flags & TCL_CLOSE_READ) && (shutdown(statePtr->fds.fd, SHUT_RD) < 0)) { + errorCode = errno; + } + if ((flags & TCL_CLOSE_WRITE) && (shutdown(statePtr->fds.fd, SHUT_WR) < 0) && (errorCode != 0)) { errorCode = errno; } - return errorCode; } |