X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/af2250df3612234f2fb1be95c7e91920e7cd92f7..e366167b68d6be89220462efe851f74fd54d029c:/configure.com

diff --git a/configure.com b/configure.com
index 29f4e3e..0ed64fd 100644
--- a/configure.com
+++ b/configure.com
@@ -48,6 +48,7 @@ $ unlink_all_versions = "n"
 $ use_vmsdebug_perl = "n"
 $ use64bitall = "n"
 $ use64bitint = "n"
+$ uselargefiles = "n"
 $ C_Compiler_Replace = "CC="
 $ Thread_Live_Dangerously = "MT="
 $ use_two_pot_malloc = "N"
@@ -2335,12 +2336,7 @@ $   echo ""
 $   echo "If this does not make any sense to you, just accept the default '" + bool_dflt + "'."
 $   rp = "Try to understand large files, if available? [''bool_dflt'] "
 $   GOSUB myread
-$   IF ans
-$   THEN
-$     uselargefiles="define"
-$   ELSE
-$     uselargefiles="undef"
-$   ENDIF
+$   uselargefiles=ans
 $!
 $ ENDIF ! not VAX && >= 7.1
 $!
@@ -3012,6 +3008,12 @@ $   use64bitall = "define"
 $ ELSE
 $   use64bitall = "undef"
 $ ENDIF
+$ IF uselargefiles .OR. uselargefiles .EQS. "define"
+$ THEN
+$   uselargefiles = "define"
+$ ELSE
+$   uselargefiles = "undef"
+$ ENDIF
 $!
 $ usemymalloc = "undef"
 $ if mymalloc then usemymalloc = "define"