package B::Lint;
+our $VERSION = '1.01';
+
=head1 NAME
B::Lint - Perl lint
my $op = shift;
my $flags = $op->flags;
if ($flags & OPf_WANT) {
- return(($flags & OPf_WANT_LIST) ? 1 : 0);
+ return(($flags & OPf_WANT == OPf_WANT_LIST) ? 1 : 0);
}
return undef;
}
%check = ();
}
else {
- if ($opt =~ s/^no-//) {
+ if ($opt =~ s/^no_//) {
$check{$opt} = 0;
}
else {