Check anti-lint__END__-X# nolint: check compile time $^W is zappedBEGIN { $^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 zappeduse 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.pmuse 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-- abcuse 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.pmBEGIN {$^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-- abcBEGIN {$^W = 1}my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- $^W = 1 ;require "./abc";my $a ; chop $a ;EXPECT########-X# Check scope of pragma with evaluse warnings;{    no warnings ;    eval '        my $b ; chop $b ;    '; print STDERR $@ ;    my $b ; chop $b ;}EXPECT########-X# Check scope of pragma with evaluse warnings;{    no warnings ;    eval q[         use warnings 'uninitialized' ;        my $b ; chop $b ;    ]; print STDERR $@;    my $b ; chop $b ;}EXPECT########-X# Check scope of pragma with evalno warnings;{    use warnings 'uninitialized' ;    eval '        my $b ; chop $b ;    '; print STDERR $@ ;    my $b ; chop $b ;}EXPECT########-X# Check scope of pragma with evalno warnings;{    use warnings 'uninitialized' ;    eval '        no warnings ;        my $b ; chop $b ;    '; print STDERR $@ ;    my $b ; chop $b ;}EXPECT########-X# Check scope of pragma with evaluse warnings;{    no warnings ;    eval '        1 if $a EQ $b ;    '; print STDERR $@ ;    1 if $a EQ $b ;}EXPECT########-X# Check scope of pragma with evaluse warnings;{    no warnings ;    eval q[         use warnings 'deprecated' ;        1 if $a EQ $b ;    ]; print STDERR $@;    1 if $a EQ $b ;}EXPECT########-X# Check scope of pragma with evalno warnings;{    use warnings 'deprecated' ;    eval '        1 if $a EQ $b ;    '; print STDERR $@;    1 if $a EQ $b ;}EXPECT########-X# Check scope of pragma with evalno warnings;{    use warnings 'deprecated' ;    eval '        no warnings ;        1 if $a EQ $b ;    '; print STDERR $@;    1 if $a EQ $b ;}EXPECT