From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 26 Dec 2001 17:13:27 +0000 (+0000)
Subject: No AF_UNIX in BeOS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=504583342c47cd89d728272acd00052b6bd7ced6;p=p5sagit%2Fp5-mst-13.2.git

No AF_UNIX in BeOS.

p4raw-id: //depot/perl@13887
---

diff --git a/util.c b/util.c
index eaf169a..409b1b7 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;
     }