From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 11 Dec 2001 05:22:08 +0000 (+0000)
Subject: BeOS has socket() but not enough to build a working Socket.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a9f028cfd0d4a71625e6d371deefaa0edd0b19a;p=p5sagit%2Fp5-mst-13.2.git

BeOS has socket() but not enough to build a working Socket.
Go figure.  ("BONE" (BeOS NEtworking?) is some sort of rumored
new networking implementation, which is rumored to fix the
non-standardness of sockets, but it's apparently not publicly
available, and anything to do with BeOS has become quite
complicated with the sale of the Be assets to Palm.)

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

diff --git a/Configure b/Configure
index 540d90c..8dddca3 100755
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Mon Dec 10 05:02:24 EET 2001 [metaconfig 3.0 PL70]
+# Generated on Tue Dec 11 08:22:11 EET 2001 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -16520,7 +16520,12 @@ for xxx in $known_extensions ; do
 		;;
 	Socket|socket)
 		case "$d_socket" in 
-		true|$define|y) avail_ext="$avail_ext $xxx" ;;
+		true|$define|y)
+		    case "$osname" in
+		    beos) ;; # not unless BONE
+		    *) avail_ext="$avail_ext $xxx" ;;
+		    esac
+		    ;;
 		esac
 		;;
 	Sys/Syslog|sys/syslog)