Prompt for uselfs.

p4raw-id: //depot/metaconfig@4205

diff --git a/U/mksample b/U/mksample
index a4a2f80..6fe5dd9 100755 (executable)
--- a/U/mksample
+++ b/U/mksample
@@ -5,7 +5,7 @@
 #  Jarkko Hietaniemi   Sept 15, 1998   Added -Duse64bits
 
 rm -f config.sh Policy.sh
-sh Configure -Dprefix=/opt/perl -Doptimize=-O -Dusethreads -Duse64bits \
+sh Configure -Dprefix=/opt/perl -Doptimize=-O -Dusethreads -Duse64bits -Duselfs \
        -Dcf_by='yourname' \
        -Dcf_email='yourname@yourhost.yourplace.com' \
        -Dperladmin='yourname@yourhost.yourplace.com' \

diff --git a/U/perl/use64bits.U b/U/perl/use64bits.U
index c2c3995..484b56e 100644 (file)
--- a/U/perl/use64bits.U
+++ b/U/perl/use64bits.U
@@ -6,7 +6,7 @@
 ?RCS: License or the Artistic License, as specified in the README file.
 ?RCS:
 ?MAKE:use64bits archname64: Myread Oldconfig Setvar test gccversion cat \
-       usemorebits
+       usemorebits uselfs
 ?MAKE: -pick add $@ %<
 ?Y:TOP
 ?S:use64bits:
@@ -36,7 +36,7 @@ cat <<EOM
 Perl can be built to take advantage of explicit 64-bit interfaces,
 on some systems.  To do so, Configure must be run with -Duse64bits.
 
-If this doesn't make any sense to you, just accept the default 'n'.
+If this doesn't make any sense to you, just accept the default.
 EOM
 case "$use64bits" in
 $define|true|[yY]*)    dflt='y';;

diff --git a/U/perl/uselfs.U b/U/perl/uselfs.U
index d189c16..ab8cdb1 100644 (file)
--- a/U/perl/uselfs.U
+++ b/U/perl/uselfs.U
@@ -5,30 +5,45 @@
 ?RCS: You may distribute under the terms of either the GNU General Public
 ?RCS: License or the Artistic License, as specified in the README file.
 ?RCS:
-?MAKE:uselfs: Setvar
+?MAKE:uselfs: Myread Oldconfig Setvar
 ?MAKE: -pick add $@ %<
 ?Y:TOP
 ?S:uselfs:
 ?S:    This variable conditionally defines the USE_LARGE_FILES symbol,
 ?S:    and indicates that large file interfaces should be used when
-?S:    available.  The use64bits symbol will also be turned on.
+?S:    available.  The use64bits symbol will also be turned on if necessary.
 ?S:.
 ?C:USE_LARGE_FILES:
 ?C:    This symbol, if defined, indicates that large file support
 ?C:    should be used when available.  The USE_64_BITS symbol will
-?C:    also be turned on.
+?C:    also be turned on if necessary.
 ?C:.
 ?H:#$uselfs    USE_LARGE_FILES         /**/
 ?H:.
+?LINT:set uselfs
 ?LINT:extern use64bits
 ?LINT:change use64bits
 
+cat <<EOM
+
+Perl can be built to understand large files (files larger than 2 gigabytes)
+on some systems.  To do so, Configure must be run with -Duselfs.
+
+If this doesn't make any sense to you, just accept the default.
+EOM
+case "$uselfs" in
+"$define"|true|[yY]*) dflt='y' ;;
+*)     dflt='n' ;;
+esac
+rp='Try to understand large files?'
+. ./myread
+case "$ans" in
+y|Y)   val="$define" ;;
+*)     val="$undef"  ;;
+esac
+set uselfs
+eval $setvar
 case "$uselfs" in
-"$define"|true|[yY]*)
-       uselfs="$define"
-       use64bits="$define"
-       ;;
-*)     uselfs="$undef"
-       ;;
+"$define") use64bits="$define" ;;
 esac