diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-05-15 14:04:17 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-05-15 14:04:17 +0000 |
| commit | 3acd27eec7b2f3a97d98cb76eaeef38ac289882b (patch) | |
| tree | fb44b5d88be7ae447b8b88b7ba24edaa7bf31acf /lib/strict.pm | |
| parent | a5871d1a83cd3d5c7292135cbb30a336a8552ab0 (diff) | |
| parent | ebc58f1ae3702319e4a289ddf12b65aa41e620b0 (diff) | |
| download | perl-3acd27eec7b2f3a97d98cb76eaeef38ac289882b.tar.gz | |
Integrate win32 branch into mainline.
p4raw-id: //depot/perl@983
Diffstat (limited to 'lib/strict.pm')
| -rw-r--r-- | lib/strict.pm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lib/strict.pm b/lib/strict.pm index 2b1d964e65..4e2baa3b1c 100644 --- a/lib/strict.pm +++ b/lib/strict.pm @@ -72,19 +72,11 @@ appears in curly braces or on the left hand side of the "=E<gt>" symbol. =back -See L<perlmod/Pragmatic Modules>. +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; }; |