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 | caf8932e2eb878f8cf7c759009c944475d513325 (patch) | |
| tree | 4c1e5cabe973ab3e88fce8b14626c454f0e23a61 /generic | |
| parent | 2e467a4c9a0cb63cb152e21bb05eb3493ea3ca14 (diff) | |
| download | tcl-caf8932e2eb878f8cf7c759009c944475d513325.zip tcl-caf8932e2eb878f8cf7c759009c944475d513325.tar.gz tcl-caf8932e2eb878f8cf7c759009c944475d513325.tar.bz2 | |
Fix for the argument parsing phase in the [socket] command.
Diffstat (limited to 'generic')
| -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( |