This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
integrate vmsperl contents into mainline (where VMS files conflicted,
authorGurusamy Sarathy <gsar@cpan.org>
Fri, 17 Sep 1999 20:16:28 +0000 (20:16 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 17 Sep 1999 20:16:28 +0000 (20:16 +0000)
vmsperl contents have prevailed)

p4raw-id: //depot/perl@4182

1  2 
configure.com
vms/vms.c

diff --cc 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
+++ 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,