Re: no strict with 'use strict qw(@ISA)'

Looking at the source for strict.pm under 5.8.1 RC4, this seems weird. I guess they just moved some checks into use? Seems strange they they didn't just check for them in strict.pm.

antirice
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1

Comment on Re: no strict with 'use strict qw(@ISA)'

Replies are listed 'Best First'.
Re: Re: no strict with 'use strict qw(@ISA)' by liz (Monsignor) on Sep 11, 2003 at 08:28 UTC
The latest 5.8.1 snapshot has in strict.pm: `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; }` [download] 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>` [download] Liz	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: no strict with 'use strict qw(@ISA)'
by liz (Monsignor) on Sep 11, 2003 at 08:28 UTC

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;
}
[download]

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>
[download]

Liz

[reply]
[d/l]
[select]