From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 1 Oct 1999 22:46:06 +0000 (+0000)
Subject: remove dup hunks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=463502f3dba291d5069ec71524a64d86ea5edbba;p=p5sagit%2Fp5-mst-13.2.git

remove dup hunks

p4raw-id: //depot/perl@4272
---

diff --git a/configure.com b/configure.com
index 96e8633..a9ed05b 100644
--- a/configure.com
+++ b/configure.com
@@ -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
diff --git a/vms/vms.c b/vms/vms.c
index ab24000..5d5f7f7 100644
--- 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,