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 (executable)
--- 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)