Add support for Bitrig BSD

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

diff --git a/U/perl/useperlio.U b/U/perl/useperlio.U
index a4fc865..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
+?MAKE:useperlio: Myread Oldconfig Setvar
 ?MAKE: -pick add $@ %<
 ?Y:TOP
 ?S:useperlio:
@@ -20,36 +20,10 @@
 ?C:    be used throughout.  If not defined, stdio should be
 ?C:    used in a fully backward compatible manner.
 ?C:.
-?H:#$useperlio USE_PERLIO              /**/
+?H:?%<:#ifndef USE_PERLIO
+?H:?%<:#$useperlio     USE_PERLIO              /**/
+?H:?%<:#endif
 ?H:.
-?LINT:set useperlio
-cat <<EOM
-
-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 a "PerlIO" abstraction, 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.  Using PerlIO with stdio is safe,
-but it is slower than plain stdio and therefore is not the default.
-
-If this doesn't make any sense to you, just accept the default 'n'.
-EOM
-case "$useperlio" in
-$define|true|[yY]*)    dflt='y';;
-*) dflt='n';;
-esac
-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 
+: Check if we want perlio
+useperlio="$define"