diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-05-15 16:28:08 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-05-15 16:28:08 +0000 |
| commit | 4682965a1447ea44ca0e54daf6511745b18aef6c (patch) | |
| tree | 16a22da461acabb6195ecc6ed170c84a5ee5ea85 /lib/strict.pm | |
| parent | 3acd27eec7b2f3a97d98cb76eaeef38ac289882b (diff) | |
| download | perl-4682965a1447ea44ca0e54daf6511745b18aef6c.tar.gz | |
Patch from Sarathy to fix up win32 integration. Patch from Jarkko
(manually applied and tweaked) to fix up SysV IPC semaphores for
Solaris and Linux (pre-glibc and glibc). Fix up t/op/ipcmsg.t and
t/op/ipcsem.t for platforms which wanted to skip test. Completely
disable ipcsem.t since it doesn't seem to work properly even when
not skipped. This is _65.
p4raw-id: //depot/perl@988
Diffstat (limited to 'lib/strict.pm')
| -rw-r--r-- | lib/strict.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/strict.pm b/lib/strict.pm index 4e2baa3b1c..940e8bf7ff 100644 --- a/lib/strict.pm +++ b/lib/strict.pm @@ -77,6 +77,14 @@ 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; }; |