From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Fri, 15 May 1998 14:04:17 +0000 (+0000)
Subject: Integrate win32 branch into mainline.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3acd27eec7b2f3a97d98cb76eaeef38ac289882b;p=p5sagit%2Fp5-mst-13.2.git

Integrate win32 branch into mainline.

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

3acd27eec7b2f3a97d98cb76eaeef38ac289882b
diff --cc lib/strict.pm
index 2b1d964,940e8bf..4e2baa3
--- a/lib/strict.pm
+++ b/lib/strict.pm
@@@ -77,14 -77,14 +77,6 @@@ See L<perlmodlib/Pragmatic Modules>
  
  =cut
  
--$strict::VERSION = "1.01";
--
--my %bitmask = (
--refs => 0x00000002,
--subs => 0x00000200,
--vars => 0x00000400
--);
--
  sub bits {
      my $bits = 0;
      foreach my $s (@_){ $bits |= $bitmask{$s} || 0; };
diff --cc perl.h
index 42250ed,fc96064..3f97dc2
--- a/perl.h
+++ b/perl.h
@@@ -710,6 -710,6 +710,15 @@@ Free_t   Perl_free _((Malloc_t where))
  #  endif
  #endif
  
++/* XXX Experimental set-up for long long.  Just add -DUSE_LONG_LONG
++   to your ccflags.  --Andy Dougherty   4/1998
++*/
++#ifdef USE_LONG_LONG
++#  if defined(HAS_LONG_LONG) && LONGLONGSIZE == 8
++#    define Quad_t long long
++#  endif
++#endif
++
  #ifdef Quad_t
  #   define HAS_QUAD
      typedef Quad_t IV;
diff --cc pod/perldebug.pod
index 8937c7e,8f49541..68f3684
--- a/pod/perldebug.pod
+++ b/pod/perldebug.pod
@@@ -298,6 -298,6 +298,14 @@@ Add a global watch-expression
  
  Delete all watch-expressions.
  
++=item W [expr]
++
++Add a global watch-expression.
++
++=item W
++
++Delete all watch-expressions.
++
  =item O [opt[=val]] [opt"val"] [opt?]...
  
  Set or query values of options.  val defaults to 1.  opt can