From de3815873a418692db7f20caf373cd7b64c60ea3 Mon Sep 17 00:00:00 2001
From: Xavier Roche <xroche@users.noreply.github.com>
Date: Sun, 14 Apr 2013 13:43:12 +0000
Subject: Print "error closing socket" error messages if the socket can not be
 closed.

---
 src/htslib.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/htslib.c b/src/htslib.c
index a416dcd..51ea004 100644
--- a/src/htslib.c
+++ b/src/htslib.c
@@ -2479,9 +2479,15 @@ HTS_INLINE void deletesoc(T_SOC soc) {
     DEBUG_W("close %d\n" _ (int) soc);
 #endif
 #ifdef _WIN32
-    closesocket(soc);
+    if (closesocket(soc) != 0) {
+      int err = WSAGetLastError();
+      fprintf(stderr, "* error closing socket %d: %s\n", soc, strerror(err));
+    }
 #else
-    close(soc);
+    if (close(soc) != 0) {
+      const int err = errno;
+      fprintf(stderr, "* error closing socket %d: %s\n", soc, strerror(err));
+    }
 #endif
 #if HTS_WIDE_DEBUG    
     DEBUG_W(".. done\n");
-- 
cgit v1.2.3