This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove dup hunks
authorGurusamy Sarathy <gsar@cpan.org>
Fri, 1 Oct 1999 22:46:06 +0000 (22:46 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 1 Oct 1999 22:46:06 +0000 (22:46 +0000)
p4raw-id: //depot/perl@4272

configure.com
vms/vms.c

index 96e8633..a9ed05b 100644 (file)
@@ -1762,27 +1762,6 @@ $   ELSE
 $     use_64bit="N"
 $   ENDIF
 $ ENDIF
-$!
-$! Ask if they want to build with 64-bit support
-$ if (Archname.eqs."VMS_AXP").and.("''f$extract(1,3, f$getsyi(""version""))'".ges."7.1")
-$ THEN
-$   echo "This version of perl has experimental support for building wtih
-$   echo "64 bit integers and 128 bit floating point variables. This gives
-$   echo "a much larger range for perl's mathematical operations. (Note that
-$   echo "does *not* enable 64-bit fileops at the moment, as Dec C doesn't
-$   echo "do that yet)"
-$   echo ""
-$   dflt = use_64bit
-$   rp = "Build with 64 bits? [''dflt'] "
-$   GOSUB myread
-$     if ans.eqs."" then ans = dflt
-$   if (f$extract(0, 1, "''ans'").eqs."Y").or.(f$extract(0, 1, "''ans'").eqs."y")
-$   THEN
-$     use_64bit="Y"
-$   ELSE
-$     use_64bit="N"
-$   ENDIF
-$ ENDIF
 $! Ask about threads, if appropriate
 $ if (Using_Dec_C.eqs."Yes")
 $ THEN
index ab24000..5d5f7f7 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -95,10 +95,6 @@ static bool will_taint = FALSE;  /* tainting active, but no PL_curinterp yet */
 /* munching */ 
 static int no_translate_barewords;
 
-/* True if we shouldn't treat barewords as logicals during directory */
-/* munching */ 
-static int no_translate_barewords;
-
 /*{{{int vmstrnenv(const char *lnm, char *eqv, unsigned long int idx, struct dsc$descriptor_s **tabvec, unsigned long int flags) */
 int
 vmstrnenv(const char *lnm, char *eqv, unsigned long int idx,