Zero memory of sockaddr_un if abstract socket

haskell · Aug 12, 2016 · 3a62be6 · 3a62be6
1 parent a82a401
commit 3a62be6
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Network/Socket/Types.hsc b/Network/Socket/Types.hsc
@@ -922,6 +922,10 @@ pokeSockAddr :: Ptr a -> SockAddr -> IO ()
 pokeSockAddr p (SockAddrUnix path) = do
 #if defined(darwin_HOST_OS)
     zeroMemory p (#const sizeof(struct sockaddr_un))
+#else
+    case path of
+      ('\0':_) -> zeroMemory p (#const sizeof(struct sockaddr_un))
+      _        -> pure ()
 #endif
 #if defined(HAVE_STRUCT_SOCKADDR_SA_LEN)
     (#poke struct sockaddr_un, sun_len) p ((#const sizeof(struct sockaddr_un)) :: Word8)