diff options
Diffstat (limited to 'lib/strict.pm')
| -rw-r--r-- | lib/strict.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/strict.pm b/lib/strict.pm index e261e92f67..8492e933fd 100644 --- a/lib/strict.pm +++ b/lib/strict.pm @@ -74,10 +74,11 @@ See L<perlmod/Pragmatic Modules>. sub bits { my $bits = 0; + my $sememe; foreach $sememe (@_) { - $bits |= 0x00000002 if $sememe eq 'refs'; - $bits |= 0x00000200 if $sememe eq 'subs'; - $bits |= 0x00000400 if $sememe eq 'vars'; + $bits |= 0x00000002, next if $sememe eq 'refs'; + $bits |= 0x00000200, next if $sememe eq 'subs'; + $bits |= 0x00000400, next if $sememe eq 'vars'; } $bits; } |