1N/Asyntax anti-lint
1N/A
1N/A__END__
1N/A-X
1N/A# nolint: check compile time $^W is zapped
1N/ABEGIN { $^W = 1 ;}
1N/A$a = $b = 1 ;
1N/A$a =+ 1 ;
1N/Aclose STDIN ; print STDIN "abc" ;
1N/AEXPECT
1N/A########
1N/A-X
1N/A# nolint: check runtime $^W is zapped
1N/A$^W = 1 ;
1N/Aclose STDIN ; print STDIN "abc" ;
1N/AEXPECT
1N/A########
1N/A-X
1N/A# nolint: check runtime $^W is zapped
1N/A{
1N/A $^W = 1 ;
1N/A close STDIN ; print STDIN "abc" ;
1N/A}
1N/AEXPECT
1N/A########
1N/A-X
1N/A# nolint: check "no warnings" is zapped
1N/Ause warnings ;
1N/A$a = $b = 1 ;
1N/A$a =+ 1 ;
1N/Aclose STDIN ; print STDIN "abc" ;
1N/AEXPECT
1N/A########
1N/A-X
1N/A# nolint: check "no warnings" is zapped
1N/A{
1N/A use warnings ;
1N/A close STDIN ; print STDIN "abc" ;
1N/A}
1N/AEXPECT
1N/A########
1N/A-Xw
1N/A# nolint: check combination of -w and -X
1N/A{
1N/A $^W = 1 ;
1N/A close STDIN ; print STDIN "abc" ;
1N/A}
1N/AEXPECT
1N/A########
1N/A-X
1N/A--FILE-- abc.pm
1N/Ause warnings 'syntax' ;
1N/Amy $a = 0;
1N/A$a =+ 1 ;
1N/A1;
1N/A--FILE--
1N/Ause warnings 'uninitialized' ;
1N/Ause abc;
1N/Amy $a ; chop $a ;
1N/AEXPECT
1N/A########
1N/A-X
1N/A--FILE-- abc
1N/Ause warnings 'syntax' ;
1N/Amy $a = 0;
1N/A$a =+ 1 ;
1N/A1;
1N/A--FILE--
1N/Ause warnings 'uninitialized' ;
1N/Arequire "./abc";
1N/Amy $a ; chop $a ;
1N/AEXPECT
1N/A########
1N/A-X
1N/A--FILE-- abc.pm
1N/ABEGIN {$^W = 1}
1N/Amy ($a, $b) = (0,0);
1N/A$a =+ 1 ;
1N/A1;
1N/A--FILE--
1N/A$^W = 1 ;
1N/Ause abc;
1N/Amy $a ; chop $a ;
1N/AEXPECT
1N/A########
1N/A-X
1N/A--FILE-- abc
1N/ABEGIN {$^W = 1}
1N/Amy ($a, $b) = (0,0);
1N/A$a =+ 1 ;
1N/A1;
1N/A--FILE--
1N/A$^W = 1 ;
1N/Arequire "./abc";
1N/Amy $a ; chop $a ;
1N/AEXPECT
1N/A########
1N/A-X
1N/A# Check scope of pragma with eval
1N/Ause warnings;
1N/A{
1N/A no warnings ;
1N/A eval '
1N/A my $b ; chop $b ;
1N/A '; print STDERR $@ ;
1N/A my $b ; chop $b ;
1N/A}
1N/AEXPECT
1N/A
1N/A########
1N/A-X
1N/A# Check scope of pragma with eval
1N/Ause warnings;
1N/A{
1N/A no warnings ;
1N/A eval q[
1N/A use warnings 'uninitialized' ;
1N/A my $b ; chop $b ;
1N/A ]; print STDERR $@;
1N/A my $b ; chop $b ;
1N/A}
1N/AEXPECT
1N/A
1N/A########
1N/A-X
1N/A# Check scope of pragma with eval
1N/Ano warnings;
1N/A{
1N/A use warnings 'uninitialized' ;
1N/A eval '
1N/A my $b ; chop $b ;
1N/A '; print STDERR $@ ;
1N/A my $b ; chop $b ;
1N/A}
1N/AEXPECT
1N/A
1N/A########
1N/A-X
1N/A# Check scope of pragma with eval
1N/Ano warnings;
1N/A{
1N/A use warnings 'uninitialized' ;
1N/A eval '
1N/A no warnings ;
1N/A my $b ; chop $b ;
1N/A '; print STDERR $@ ;
1N/A my $b ; chop $b ;
1N/A}
1N/AEXPECT
1N/A
1N/A########
1N/A-X
1N/A# Check scope of pragma with eval
1N/Ause warnings;
1N/A{
1N/A no warnings ;
1N/A eval '
1N/A my $a =+ 1 ;
1N/A '; print STDERR $@ ;
1N/A my $a =+ 1 ;
1N/A}
1N/AEXPECT
1N/A
1N/A########
1N/A-X
1N/A# Check scope of pragma with eval
1N/Ause warnings;
1N/A{
1N/A no warnings ;
1N/A eval q[
1N/A use warnings 'syntax' ;
1N/A my $a =+ 1 ;
1N/A ]; print STDERR $@;
1N/A my $a =+ 1 ;
1N/A}
1N/AEXPECT
1N/A
1N/A########
1N/A-X
1N/A# Check scope of pragma with eval
1N/Ano warnings;
1N/A{
1N/A use warnings 'syntax' ;
1N/A eval '
1N/A my $a =+ 1 ;
1N/A '; print STDERR $@;
1N/A my $a =+ 1 ;
1N/A}
1N/AEXPECT
1N/A
1N/A########
1N/A-X
1N/A# Check scope of pragma with eval
1N/Ano warnings;
1N/A{
1N/A use warnings 'syntax' ;
1N/A eval '
1N/A no warnings ;
1N/A my $a =+ 1 ;
1N/A '; print STDERR $@;
1N/A my $a =+ 1 ;
1N/A}
1N/AEXPECT
1N/A