From b802a6e420e47172714baa9bc52fd03a5bb91f43 Mon Sep 17 00:00:00 2001
From: limeboy <that.lemon+tcl@gmai.com>
Date: Wed, 14 Dec 2016 15:52:21 +0000
Subject: Fix for the argument parsing phase in the [socket] command.

---
 generic/tclIOCmd.c | 3 +--
 1 file changed, 1 insertion(+), 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(
-- 
cgit v0.12