[project @ 2004-11-12 13:22:56 by stolz]

More getpw*_r result checks

1 files changed, 6 insertions, 0 deletions

diff --git a/System/Posix/User.hsc b/System/Posix/User.hsc
index 7b0db2a..69976a1 100644
--- a/System/Posix/User.hsc
+++ b/System/Posix/User.hsc
@@ -137,6 +137,8 @@ getGroupEntryForID gid = do
       alloca $ \ ppgr -> do
         throwErrorIfNonZero_ "getGroupEntryForID" $
 	     c_getgrgid_r gid pgr pbuf (fromIntegral grBufSize) ppgr
+	throwErrnoIfNull "getGroupEntryForID" $
+	     peekElemOff ppgr 0
 	unpackGroupEntry pgr
 
 
@@ -157,6 +159,8 @@ getGroupEntryForName name = do
 	withCString name $ \ pstr -> do
           throwErrorIfNonZero_ "getGroupEntryForName" $
 	     c_getgrnam_r pstr pgr pbuf (fromIntegral grBufSize) ppgr
+	  throwErrnoIfNull "getGroupEntryForName" $
+	     peekElemOff ppgr 0
 	  unpackGroupEntry pgr
 
 foreign import ccall unsafe "getgrnam_r"
@@ -214,6 +218,8 @@ getUserEntryForID uid = do
       alloca $ \ pppw -> do
         throwErrorIfNonZero_ "getUserEntryForID" $
 	     c_getpwuid_r uid ppw pbuf (fromIntegral pwBufSize) pppw
+	throwErrnoIfNull "getUserEntryForID" $
+	     peekElemOff pppw 0
 	unpackUserEntry ppw
 
 foreign import ccall unsafe "getpwuid_r"