my %bitmask = ( refs => 0x00000002, subs => 0x00000200, vars => 0x00000400 ); sub bits { my $bits = 0; my @wrong; foreach my $s (@_) { push @wrong, $s unless exists $bitmask{$s}; $bits |= $bitmask{$s} || 0; } if (@wrong) { require Carp; Carp::croak("Unknown 'strict' tag(s) '@wrong'"); } $bits; }
which clearly shows that it is just inside the "strict" module to me.
I believe it was patch 17869. From Changes:
[ 17869] Subject: [perl #17061] no strict 'garbage' From: Elizabeth Mattijsen (via RT) <perlbug@perl.org> Date: 6 Sep 2002 19:31:02 -0000 Message-Id: <rt-17061-36808.6.19994322284541@bugs6.perl.org> Date: Sat, 07 Sep 2002 13:40:22 +0200 Message-Id: <4.2.0.58.20020907133846.02476d40@mickey.dijkmat.nl>
Liz
In reply to Re: Re: no strict with 'use strict qw(@ISA)'
by liz
in thread apache2 conflicts with strict declaration
by helick
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |