[perl #32717] BeOS specific Updates

[p5sagit/p5-mst-13.2.git] / hints / beos.sh

diff --git a/hints/beos.sh b/hints/beos.sh
index ab75276..47e724b 100644 (file)
--- a/hints/beos.sh
+++ b/hints/beos.sh
@@ -1,11 +1,12 @@
 # BeOS hints file
 # $Id: beos.sh,v 1.1 1998/02/16 03:51:45 dogcow Exp $
 
-if [ ! -f beos/nm ]; then mwcc -w all -o beos/nm beos/nm.c; fi
+if [ ! -f beos/nm ]; then mwcc -w all -o beos/nm beos/nm.c 2>/dev/null; fi
+# If this fails, that's all right - it's only for PPC.
 
 prefix="/boot/home/config"
 
-cpp="mwcc -e"
+#cpp="mwcc -e"
 
 libpth='/boot/beos/system/lib /boot/home/config/lib'
 usrinc='/boot/develop/headers/posix'
@@ -37,9 +38,28 @@ d_syserrlst='undef'
 # the array syserrlst[] is useless for the most part.
 # large negative numbers really kind of suck in arrays.
 
-#d_socket='undef'
-# Sockets really don't work with the current version of perl and the
-# current BeOS sockets; I suspect that a new module a la GSAR's WIN32 port
-# will be required.
+# Sockets didn't use to be real sockets but BONE changes this.
+if [ ! -f /boot/develop/headers/be/bone/sys/socket.h ]; then
+    d_socket='undef'
+    d_gethbyaddr='undef'
+    d_gethbyname='undef'
+    d_getsbyname='undef'
+
+       libs='-lnet'
+fi
+
+# We provide a flock() emulation.
+d_flock='define'
+d_flockproto='define'
+
+ld='gcc'
 
 export PATH="$PATH:$PWD/beos"
+
+case "$ldlibpthname" in
+'') ldlibpthname=LIBRARY_PATH ;;
+esac
+
+# the waitpid() wrapper (among other things)
+archobjs="beos.o"
+test -f beos.c || cp beos/beos.c .