diff options
| author | limeboy <that.lemon+tcl@gmai.com> | 2016-12-14 15:52:21 (GMT) |
|---|---|---|
| committer | limeboy <that.lemon+tcl@gmai.com> | 2016-12-14 15:52:21 (GMT) |
| commit | b802a6e420e47172714baa9bc52fd03a5bb91f43 (patch) | |
| tree | 4c1e5cabe973ab3e88fce8b14626c454f0e23a61 | |
| parent | fdc5267c5f6488e6f8065453fc078e0ebc45d861 (diff) | |
| download | tcl-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.c | 3 |
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( |