97 lines
1.3 KiB
Plaintext
97 lines
1.3 KiB
Plaintext
Check anti-lint
|
|
|
|
__END__
|
|
-X
|
|
# nolint: check compile time $^W is zapped
|
|
BEGIN { $^W = 1 ;}
|
|
$a = $b = 1 ;
|
|
$a = 1 if $a EQ $b ;
|
|
close STDIN ; print STDIN "abc" ;
|
|
EXPECT
|
|
########
|
|
-X
|
|
# nolint: check runtime $^W is zapped
|
|
$^W = 1 ;
|
|
close STDIN ; print STDIN "abc" ;
|
|
EXPECT
|
|
########
|
|
-X
|
|
# nolint: check runtime $^W is zapped
|
|
{
|
|
$^W = 1 ;
|
|
close STDIN ; print STDIN "abc" ;
|
|
}
|
|
EXPECT
|
|
########
|
|
-X
|
|
# nolint: check "no warnings" is zapped
|
|
use warnings ;
|
|
$a = $b = 1 ;
|
|
$a = 1 if $a EQ $b ;
|
|
close STDIN ; print STDIN "abc" ;
|
|
EXPECT
|
|
########
|
|
-X
|
|
# nolint: check "no warnings" is zapped
|
|
{
|
|
use warnings ;
|
|
close STDIN ; print STDIN "abc" ;
|
|
}
|
|
EXPECT
|
|
########
|
|
-Xw
|
|
# nolint: check combination of -w and -X
|
|
{
|
|
$^W = 1 ;
|
|
close STDIN ; print STDIN "abc" ;
|
|
}
|
|
EXPECT
|
|
########
|
|
-X
|
|
--FILE-- abc.pm
|
|
use warnings 'deprecated' ;
|
|
my ($a, $b) = (0,0);
|
|
1 if $a EQ $b ;
|
|
1;
|
|
--FILE--
|
|
use warnings 'uninitialized' ;
|
|
use abc;
|
|
my $a ; chop $a ;
|
|
EXPECT
|
|
########
|
|
-X
|
|
--FILE-- abc
|
|
use warnings 'deprecated' ;
|
|
my ($a, $b) = (0,0);
|
|
1 if $a EQ $b ;
|
|
1;
|
|
--FILE--
|
|
use warnings 'uninitialized' ;
|
|
require "./abc";
|
|
my $a ; chop $a ;
|
|
EXPECT
|
|
########
|
|
-X
|
|
--FILE-- abc.pm
|
|
BEGIN {$^W = 1}
|
|
my ($a, $b) = (0,0);
|
|
1 if $a EQ $b ;
|
|
1;
|
|
--FILE--
|
|
$^W = 1 ;
|
|
use abc;
|
|
my $a ; chop $a ;
|
|
EXPECT
|
|
########
|
|
-X
|
|
--FILE-- abc
|
|
BEGIN {$^W = 1}
|
|
my ($a, $b) = (0,0);
|
|
1 if $a EQ $b ;
|
|
1;
|
|
--FILE--
|
|
$^W = 1 ;
|
|
require "./abc";
|
|
my $a ; chop $a ;
|
|
EXPECT
|