Add support for Bitrig BSD

[metaconfig.git] / U / perl / useperlio.U

diff --git a/U/perl/useperlio.U b/U/perl/useperlio.U
index a8f1c3f..57f40a7 100644 (file)
--- a/U/perl/useperlio.U
+++ b/U/perl/useperlio.U
@@ -7,7 +7,7 @@
 ?RCS:
 ?RCS: $Log: d_perlio.U,v $
 ?RCS:
-?MAKE:useperlio: Myread Oldconfig Setvar package usesocks
+?MAKE:useperlio: Myread Oldconfig Setvar
 ?MAKE: -pick add $@ %<
 ?Y:TOP
 ?S:useperlio:
@@ -24,49 +24,6 @@
 ?H:?%<:#$useperlio     USE_PERLIO              /**/
 ?H:?%<:#endif
 ?H:.
-?LINT:set useperlio
-case "$useperlio" in
-$define|true|[yY]*)    dflt='y';;
-*) dflt='n';;
-esac
-cat <<EOM
+: Check if we want perlio
+useperlio="$define"
 
-Previous version of $package used the standard IO mechanisms as
-defined in <stdio.h>.  Versions 5.003_02 and later of perl allow
-alternate IO mechanisms via the PerlIO abstraction layer, but the
-stdio mechanism is still the default.  This abstraction layer can
-use AT&T's sfio (if you already have sfio installed) or regular stdio.
-Using PerlIO with sfio may cause problems with some extension modules.
-
-If this doesn't make any sense to you, just accept the default '$dflt'.
-EOM
-rp='Use the experimental PerlIO abstraction layer?'
-. ./myread
-case "$ans" in
-y|Y) 
-       val="$define"
-       ;;     
-*)      
-       echo "Ok, doing things the stdio way."
-       val="$undef"
-       ;;
-esac
-set useperlio
-eval $setvar 
-
-case "$usesocks" in
-$define|true|[yY]*)
-       case "$useperlio" in
-       $define|true|[yY]*) ;;
-       *)      cat >&4 <<EOM
-
-You are using the SOCKS proxy protocol library which means that you
-should also use the PerlIO layer.  You may be headed for trouble.
-
-EOM
-               ;;
-       esac
-       ;;
-esac
-
-