From 7628e8f3871e65f729e55364626f5684b172bddc Mon Sep 17 00:00:00 2001
From: limeboy <that.lemon+tcl@gmai.com>
Date: Sun, 1 Jan 2017 22:19:26 +0000
Subject: Make the code slightly more pleasing to the eyes.

---
 generic/tclIOCmd.c | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c
index 682eaf4..1bd3fe7 100644
--- a/generic/tclIOCmd.c
+++ b/generic/tclIOCmd.c
@@ -1618,8 +1618,16 @@ Tcl_SocketObjCmd(
 	return TCL_ERROR;
     }
 
-    if (reusea!=0) flags |= TCL_TCPSERVER_REUSEADDR;
-    if (reusep==1) flags |= TCL_TCPSERVER_REUSEPORT;
+    // Set the options to their default value if the user didn't override their
+    // value.
+    if (reusep == -1) reusep = 0;
+    if (reusea == -1) reusea = 1;
+
+    // Build the bitset with the flags values.
+    if (reusea)
+	flags |= TCL_TCPSERVER_REUSEADDR;
+    if (reusep)
+	flags |= TCL_TCPSERVER_REUSEPORT;
 
     // All the arguments should have been parsed by now, 'a' points to the last
     // one, the port number.
-- 
cgit v0.12