No AF_UNIX in BeOS.

p4raw-id: //depot/perl@13887

1 files changed, 5 insertions, 1 deletions

diff --git a/util.c b/util.c
index eaf169aa46..409b1b7d37 100644
--- a/util.c
+++ b/util.c
@@ -4135,7 +4135,11 @@ Perl_my_socketpair (int family, int type, int protocol, int fd[2]) {
     struct sockaddr_in connect_addr;
     Sock_size_t size;
 
-    if (protocol || family != AF_UNIX) {
+    if (protocol
+#ifdef AF_UNIX
+	|| family != AF_UNIX
+#endif
+	) {
         errno = EAFNOSUPPORT;
         return -1;
     }