Merge pull request #220 from mitchellwrosen/master

Zero memory of sockaddr_un if abstract socket
haskell · Aug 15, 2016 · 79e7fac · 79e7fac
2 parents 1caf74b + f06b31d
commit 79e7fac
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))
+      _        -> return ()
 #endif
 #if defined(HAVE_STRUCT_SOCKADDR_SA_LEN)
     (#poke struct sockaddr_un, sun_len) p ((#const sizeof(struct sockaddr_un)) :: Word8)