p4raw-id: //depot/perl@983
=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; };
# 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;
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