From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 Jan 2002 14:33:36 +0000 (+0000)
Subject: BeOS has sockets but not true ones.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a655055c6d5eda8d8bbdb9e567a4eaf813c1cd8;p=p5sagit%2Fp5-mst-13.2.git

BeOS has sockets but not true ones.

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

diff --git a/pp_sys.c b/pp_sys.c
index f8764c7..3fb4be9 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2282,7 +2282,7 @@ PP(pp_socket)
 
 PP(pp_sockpair)
 {
-#if defined (HAS_SOCKETPAIR) || defined (HAS_SOCKET)
+#if defined (HAS_SOCKETPAIR) || (defined (HAS_SOCKET) && defined(SOCK_DGRAM))
     dSP;
     GV *gv1;
     GV *gv2;