?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:
?H:?%<:#$useperlio USE_PERLIO /**/
?H:?%<:#endif
?H:.
-?LINT:set useperlio
-case "$useperlio" in
-$define|true|[yY]*) dflt='y';;
-*) dflt='n';;
-esac
-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 '$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
+: Check if we want perlio
+useperlio="$define"