This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Chainsaw out the possibility to disable useperlio
authorH.Merijn Brand <merijn@tux09.procura.nl>
Wed, 16 Feb 2011 14:10:16 +0000 (15:10 +0100)
committerH.Merijn Brand <merijn@tux09.procura.nl>
Wed, 16 Feb 2011 14:10:16 +0000 (15:10 +0100)
U/modified/Oldsym.U
U/perl/d_sfio.U
U/perl/usecjk.U
U/perl/useperlio.U
U/perl/usesocks.U
U/threads/archname.U
U/threads/usethreads.U

index fd65c5c..682f798 100644 (file)
@@ -46,16 +46,16 @@ if $test -f UU/config.sh; then
        $sed -n 's/^\([a-zA-Z_0-9]*\)=.*/\1/p' \
                config.sh config.sh UU/oldconfig.sh |\
                $sort | $uniq -u >UU/oldsyms
-       set X `cat UU/oldsyms`
+       set X `$cat UU/oldsyms`
        shift
        case $# in
        0) ;;
        *)
-               cat <<EOM
+               $cat <<EOM
 Hmm...You had some extra variables I don't know about...I'll try to keep 'em...
 EOM
                echo ": Variables propagated from previous config.sh file." >>config.sh
-               for sym in `cat UU/oldsyms`; do
+               for sym in `$cat UU/oldsyms`; do
                        echo "    Propagating $hint variable "'$'"$sym..."
                        eval 'tmp="$'"${sym}"'"'
                        echo "$tmp" | \
index 6bbb4f9..8bb8ec0 100644 (file)
@@ -8,7 +8,7 @@
 ?RCS: $Log: d_sfio.U,v $
 ?RCS:
 ?MAKE:usesfio d_sfio: i_sfio Inlibc Myread Oldconfig sed libs \
-       Setvar package useperlio
+       Setvar package
 ?MAKE: -pick add $@ %<
 ?S:usesfio:
 ?S:    This variable is set to true when the user agrees to use sfio.
@@ -29,7 +29,6 @@
 ?H:.
 ?LINT:set d_sfio
 ?LINT:change libs
-?LINT:change useperlio
 : see if sfio library is available
 case "$i_sfio" in
 $define)
@@ -49,17 +48,10 @@ $define)
        *) dflt='n';;
        esac
        echo "$package can use the sfio library, but it is experimental."
-       case "$useperlio" in
-       "$undef")
-           echo "For sfio also the PerlIO abstraction layer is needed."
-           echo "Earlier you said you wouldn't want that."
-           ;;
-       esac
        rp="You seem to have sfio available, do you want to try using it?"
        . ./myread
        case "$ans" in
-       y|Y)    echo "Ok, turning on both sfio and PerlIO, then."
-               useperlio="$define"
+       y|Y)    echo "Ok, turning on sfio then."
                val="$define"
                ;;
        *)      echo "Ok, avoiding sfio this time.  I'll use stdio instead."
index e83eb54..113a923 100644 (file)
@@ -21,7 +21,6 @@
 ?H:?%<:#endif
 ?H:.
 ?LINT:set usecjk
-?LINT:extern useperlio
 ?INIT:: set usecjk on the Configure command line to enable cjk.
 ?X: We should really have some explanatory text here, and some
 ?X: automatic setting of sensible defaults.
index 4f47cf4..57f40a7 100644 (file)
@@ -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:
 ?H:?%<:#$useperlio     USE_PERLIO              /**/
 ?H:?%<:#endif
 ?H:.
-?LINT:set useperlio
 : Check if we want perlio
-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 $package allow
-alternate IO mechanisms via the PerlIO abstraction layer, but the
-stdio mechanism is still available if needed.  The 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 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
+useperlio="$define"
 
index cfb1125..940e355 100644 (file)
@@ -21,8 +21,6 @@
 ?H:?%<:#endif
 ?H:.
 ?LINT:set usesocks
-?LINT:extern useperlio
-?LINT:change useperlio
 ?INIT:: set usesocks on the Configure command line to enable socks.
 : Check is we will use socks
 ?X: We should really have some explanatory text here, and some
@@ -48,7 +46,3 @@ esac
 set usesocks
 eval $setvar
 
-case "$usesocks" in
-$define|true|[yY]*) useperlio="$define";;
-esac
-
index 2a65f9b..e80140a 100644 (file)
@@ -20,7 +20,7 @@
 ?RCS:
 ?MAKE:archname myarchname: sed Loc Myread Oldconfig osname test rm \
        usethreads usemultiplicity use64bitint use64bitall archname64 \
-       uselongdouble longdblsize doublesize useperlio targetarch
+       uselongdouble longdblsize doublesize targetarch
 ?MAKE: -pick add $@ %<
 ?S:archname:
 ?S:    This variable is a short name to characterize the current
@@ -156,23 +156,6 @@ $define)
        ;;
 esac
 @end
-@if useperlio
-case "$useperlio" in
-$define)
-       echo "Perlio selected." >&4
-       ;;
-*)
-       echo "Perlio not selected, using stdio." >&4
-       case "$archname" in
-        *-stdio*) echo "...and architecture name already has -stdio." >&4
-                ;;
-        *)      archname="$archname-stdio"
-                echo "...setting architecture name to $archname." >&4
-                ;;
-        esac
-       ;;
-esac
-@end
 if $test -f archname.cbu; then
        echo "Your platform has some specific hints for architecture name, using them..."
        . ./archname.cbu
index dfca411..6682b18 100644 (file)
@@ -8,7 +8,7 @@
 ?RCS: $Log: usethreads.U,v $
 ?RCS:
 ?MAKE:usethreads useithreads use5005threads d_oldpthreads usereentrant: \
-       Myread Oldconfig Setvar test cat useperlio patchlevel
+       Myread Oldconfig Setvar test cat patchlevel
 ?MAKE: -pick add $@ %<
 ?Y:TOP
 ?S:usethreads:
@@ -88,13 +88,8 @@ $define|true|[yY]*)     dflt='y';;
 *)     # Catch case where user specified ithreads or 5005threads but
        # forgot -Dusethreads (A.D. 4/2002)
        case "$useithreads$use5005threads" in
-       *$define*)
-               case "$useperlio" in
-               "$define")      dflt='y' ;;
-               *)              dflt='n' ;;
-               esac
-               ;;
-       *)      dflt='n';;
+       *$define*)      dflt='y';;
+       *)              dflt='n';;
        esac
        ;;
 esac
@@ -197,16 +192,6 @@ EOM
     useithreads="$usethreads"
 fi
 
-if test X"$usethreads" = "X$define" -a "X$useperlio" = "Xundef"; then
-       cat >&4 <<EOF
-***
-*** To build with ithreads you must also use the PerlIO layer.
-*** Cannot continue, aborting.
-***
-EOF
-       exit 1
-fi
-
 ?X: Check out what kind of threads api we have
 case "$d_oldpthreads" in
 '')    : Configure tests would be welcome here.  For now, assume undef.