This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tweak the sfio/useperlio logic, hopefully as wished in
authorNicholas Clark <nick@ccl4.org>
Fri, 25 Aug 2000 12:01:45 +0000 (13:01 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 25 Aug 2000 18:47:45 +0000 (18:47 +0000)
Subject: [ID 20000825.004] Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6804 on i586-linux 2.2.12 (UNINSTALLED)
Message-Id: <E13SHF3-0005I9-00@fruitbat.babyhippo.co.uk>

p4raw-id: //depot/metaconfig@6818

U/perl/d_sfio.U

index 103251c..5b9f3e8 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
+       Setvar package useperlio
 ?MAKE: -pick add $@ %<
 ?S:usesfio:
 ?S:    This variable is set to true when the user agrees to use sfio.
@@ -29,6 +29,7 @@
 ?H:.
 ?LINT:set d_sfio
 ?LINT:change libs
+?LINT:change useperlio
 
 : see if sfio library is available
 case "$i_sfio" in
@@ -49,10 +50,19 @@ $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) ;;
+       y|Y)    echo "Ok, turning on both sfio and PerlIO, then."
+               useperlio="$define"
+               val="$define"
+               ;;
        *)      echo "Ok, avoiding sfio this time.  I'll use stdio instead."
                val="$undef"
                : Remove sfio from list of libraries to use
@@ -65,8 +75,9 @@ $define)
        ;;
 *)     case "$usesfio" in
        true|$define|[yY]*)
-               echo "Sorry, cannot find sfio on this machine" >&4
-               echo "Ignoring your setting of usesfio=$usesfio" >&4
+               echo "Sorry, cannot find sfio on this machine." >&4
+               echo "Ignoring your setting of usesfio=$usesfio." >&4
+               val="$undef"
                ;;
        esac
        ;;