From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 17 Sep 1999 20:16:28 +0000 (+0000)
Subject: integrate vmsperl contents into mainline (where VMS files conflicted,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=de736a2909cd9bd6fedf27c4a9020aec89d5b686;p=p5sagit%2Fp5-mst-13.2.git

integrate vmsperl contents into mainline (where VMS files conflicted,
vmsperl contents have prevailed)

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

de736a2909cd9bd6fedf27c4a9020aec89d5b686
diff --cc configure.com
index 0f86983,a9ed05b..96e8633
--- a/configure.com
+++ b/configure.com
@@@ -1713,9 -1725,30 +1725,51 @@@ $! Ask if they want to build with 64-bi
  $ 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 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 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
diff --cc vms/vms.c
index 29634a5,5d5f7f7..ab24000
--- a/vms/vms.c
+++ b/vms/vms.c
@@@ -95,6 -95,6 +95,10 @@@ static bool will_taint = FALSE;  /* tai
  /* 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,