diff options
Diffstat (limited to 'otherlibs/unix/getpeername.c')
| -rw-r--r-- | otherlibs/unix/getpeername.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/otherlibs/unix/getpeername.c b/otherlibs/unix/getpeername.c index d4fc3ee36..0431e9a33 100644 --- a/otherlibs/unix/getpeername.c +++ b/otherlibs/unix/getpeername.c @@ -13,6 +13,7 @@ /* $Id$ */ +#include <fail.h> #include <mlvalues.h> #include "unixsupport.h" @@ -29,7 +30,7 @@ CAMLprim value unix_getpeername(value sock) addr_len = sizeof(addr); retcode = getpeername(Int_val(sock), &addr.s_gen, &addr_len); if (retcode == -1) uerror("getpeername", Nothing); - return alloc_sockaddr(&addr, addr_len); + return alloc_sockaddr(&addr, addr_len, -1); } #else |