follow-up to #23748, -Duselargefiles on VMS

[perl5.git] / configure.com

diff --git a/configure.com b/configure.com
index 29f4e3e..0ed64fd 100644 (file)
--- 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"