# $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
#
-# Generated on Wed Apr 23 22:11:09 EET DST 2003 [metaconfig 3.0 PL70]
+# Generated on Sat Apr 26 00:26:09 EET DST 2003 [metaconfig 3.0 PL70]
# (with additional metaconfig patches by perlbug@perl.org)
cat >c1$$ <<EOF
shift
avail_ext="$*"
+case "$onlyextensions" in
+'') ;;
+*) keepextensions=''
+ echo "You have requested that only certains extensions be included..." >&4
+ for i in $onlyextensions; do
+ case " $avail_ext " in
+ *" $i "*)
+ echo "Keeping extension $i."
+ keepextensions="$keepextensions $i"
+ ;;
+ *) echo "Ignoring extension $i." ;;
+ esac
+ done
+ avail_ext="$keepextensions"
+ ;;
+esac
+
+case "$noextensions" in
+'') ;;
+*) keepextensions=''
+ echo "You have requested that certain extensions be ignored..." >&4
+ for i in $avail_ext; do
+ case " $i " in
+ " $noextensions ") echo "Ignoring extension $i." ;;
+ *) echo "Keeping extension $i.";
+ keepextensions="$keepextensions $i"
+ ;;
+ esac
+ done
+ avail_ext="$keepextensions"
+ ;;
+esac
+
: Now see which nonxs extensions are supported on this system.
: For now assume all are.
nonxs_ext=''
shift
extensions="$*"
-case "$onlyextensions" in
-'') ;;
-*) keepextensions=''
- echo "You have requested that only certains extensions be included..." >&4
- for i in $onlyextensions; do
- case " $extensions " in
- *" $i "*)
- echo "Keeping extension $i."
- keepextensions="$keepextensions $i"
- ;;
- *) echo "Ignoring extension $i." ;;
- esac
- done
- extensions="$keepextensions"
- ;;
-esac
-
-case "$noextensions" in
-'') ;;
-*) keepextensions=''
- echo "You have requested that certain extensions be ignored..." >&4
- for i in $extensions; do
- case " $i " in
- " $noextensions ") echo "Ignoring extension $i." ;;
- *) echo "Keeping extension $i.";
- keepextensions="$keepextensions $i"
- ;;
- esac
- done
- extensions="$keepextensions"
- ;;
-esac
-
+# Sanity check: We require an extension suitable for use with
+# AnyDBM_File, as well as Fcntl and IO. (Failure to have these
+# should show up as failures in the test suite, but it's helpful to
+# catch them now.) The 'extensions' list is normally sorted
+# alphabetically, so we need to accept either
+# DB_File ... Fcntl ... IO ....
+# or something like
+# Fcntl ... NDBM_File ... IO ....
case "$extensions" in
*"_File "*" Fcntl "*" IO "*) ;;
+*" Fcntl "*"_File "*" IO "*) ;;
*) echo "WARNING: Extensions DB_File or *DBM_File, Fcntl, and IO not configured." >&4
echo "WARNING: The Perl you are building will be quite crippled." >& 4
;;