mktables: remove now-always-true test

[perl5.git] / lib / strict.pm

diff --git a/lib/strict.pm b/lib/strict.pm
index e9fc4ff..63a89dd 100644 (file)
--- a/lib/strict.pm
+++ b/lib/strict.pm
@@ -1,6 +1,6 @@
 package strict;
 
-$strict::VERSION = "1.06";
+$strict::VERSION = "1.07";
 
 # Verify that we're called correctly so that strictures will work.
 unless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) {
@@ -14,13 +14,18 @@ refs => 0x00000002,
 subs => 0x00000200,
 vars => 0x00000400
 );
+my %explicit_bitmask = (
+refs => 0x00000020,
+subs => 0x00000040,
+vars => 0x00000080
+);
 
 sub bits {
     my $bits = 0;
     my @wrong;
     foreach my $s (@_) {
        if (exists $bitmask{$s}) {
-           $^H{"strict/$s"} = undef;
+           $^H |= $explicit_bitmask{$s};
        }
        else { push @wrong, $s };
         $bits |= $bitmask{$s} || 0;