X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Configure;h=52d57b2414ef872bf63571161477b51a5507e560;hb=e897d888ddc4bb69b5f488b85e1c82dbaeaf240b;hp=669cc73aa53711ba15a7d4f994b0ee342554ee3e;hpb=40ff80b2d4aff4df2eda7ee2fd46ea30c84b7ae3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/Configure b/Configure
index 669cc73..52d57b2 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 Thu Mar  4 10:08:40 EET 1999 [metaconfig 3.0 PL70]
+# Generated on Mon Mar 15 18:36:13 EET 1999 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.com)
 
 cat >/tmp/c1$$ <<EOF
@@ -5313,7 +5313,8 @@ EOM
 		useshrplib='true'
 		# Why does next4 have to be so different?
 		case "${osname}${osvers}" in
-		next4*)	xxx='DYLD_LIBRARY_PATH' ;;
+		next4*|rhapsody*)
+			xxx='DYLD_LIBRARY_PATH' ;;
 		os2*)	xxx='' ;; # Nothing special needed.
 		beos*)  xxx='' ;;
 		*)		xxx='LD_LIBRARY_PATH' ;;
@@ -8059,13 +8060,13 @@ eval $inlibc
 
 : see how we will look up host name
 echo " "
-if false; then
-	: dummy stub to allow use of elif
-elif set gethostname val -f d_gethname; eval $csym; $val; then
+call=''
+if set gethostname val -f d_gethname; eval $csym; $val; then
 	echo 'gethostname() found.' >&4
 	d_gethname="$define"
 	call=gethostname
-elif set uname val -f d_uname; eval $csym; $val; then
+fi
+if set uname val -f d_uname; eval $csym; $val; then
 	if ./xenix; then
 		$cat <<'EOM'
 uname() was found, but you're running xenix, and older versions of xenix
@@ -8085,7 +8086,9 @@ EOM
 	else
 		echo 'uname() found.' >&4
 		d_uname="$define"
-		call=uname
+		case "$call" in
+		'') call=uname ;;
+		esac
 	fi
 fi
 case "$d_gethname" in
@@ -10153,7 +10156,16 @@ $define)
 	false) dflt='n';;
 	*) dflt='y';;
 	esac
-	rp="Some systems have problems with vfork().  Do you want to use it?"
+	cat <<'EOM'
+ 
+Perl can only use a vfork() that doesn't suffer from strict
+restrictions on calling functions or modifying global data in
+the child.  For example, glibc-2.1 contains such a vfork()
+that is unsuitable.  If your system provides a proper fork()
+call, chances are that you do NOT want perl to use vfork().
+
+EOM
+	rp="Do you still want to use vfork()?"
 	. ./myread
 	case "$ans" in
 	y|Y) ;;
@@ -10300,7 +10312,7 @@ case "$crosscompile" in
 esac
 
 case "$osname" in
-next) multiarch="$define" ;;
+next|rhapsody) multiarch="$define" ;;
 esac
 case "$multiarch" in
 ''|[nN]*) multiarch="$undef" ;;