summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorlimeboy <that.lemon+tcl@gmai.com>2016-12-14 15:52:21 (GMT)
committerlimeboy <that.lemon+tcl@gmai.com>2016-12-14 15:52:21 (GMT)
commitb802a6e420e47172714baa9bc52fd03a5bb91f43 (patch)
tree4c1e5cabe973ab3e88fce8b14626c454f0e23a61
parentfdc5267c5f6488e6f8065453fc078e0ebc45d861 (diff)
downloadtcl-b802a6e420e47172714baa9bc52fd03a5bb91f43.zip
tcl-b802a6e420e47172714baa9bc52fd03a5bb91f43.tar.gz
tcl-b802a6e420e47172714baa9bc52fd03a5bb91f43.tar.bz2
Fix for the argument parsing phase in the [socket] command.
-rw-r--r--generic/tclIOCmd.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c
index 951fb5a..0eb8f99 100644
--- a/generic/tclIOCmd.c
+++ b/generic/tclIOCmd.c
@@ -1493,7 +1493,7 @@ Tcl_SocketObjCmd(
SKT_SERVER
};
int optionIndex, a, server = 0, myport = 0, async = 0, boolTmp;
- unsigned int flags = 0;
+ unsigned int flags = TCL_TCPSERVER_REUSEADDR;
const char *host, *port, *myaddr = NULL;
Tcl_Obj *script = NULL;
Tcl_Channel chan;
@@ -1552,7 +1552,6 @@ Tcl_SocketObjCmd(
return TCL_ERROR;
}
server = 1;
- flags = TCL_TCPSERVER_REUSEADDR;
a++;
if (a >= objc) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(