Don't leak socket on setsockopt() errors

diff --git a/common/network/TcpSocket.cxx b/common/network/TcpSocket.cxx
index f51873c1a3d952976a94d8118b936746d268d6e4..9ac1478ca8c27cf00a648f8a9ca948cd1fcf536c 100644 (file)
--- a/common/network/TcpSocket.cxx
+++ b/common/network/TcpSocket.cxx
@@ -443,8 +443,11 @@ TcpListener::TcpListener(const struct sockaddr *listenaddr,
   memcpy (&sa, listenaddr, listenaddrlen);
 #ifdef IPV6_V6ONLY
   if (listenaddr->sa_family == AF_INET6) {
-    if (setsockopt (sock, IPPROTO_IPV6, IPV6_V6ONLY, (char*)&one, sizeof(one)))
-      throw SocketException("unable to set IPV6_V6ONLY", errorNumber);
+    if (setsockopt (sock, IPPROTO_IPV6, IPV6_V6ONLY, (char*)&one, sizeof(one))) {
+      int e = errorNumber;
+      closesocket(sock);
+      throw SocketException("unable to set IPV6_V6ONLY", e);
+    }
   }
 #endif /* defined(IPV6_V6ONLY) */