Check lint__END__-W# lint: check compile time $^W is zappedBEGIN { $^W = 0 ;}$a = $b = 1 ;$a = 1 if $a EQ $b ;close STDIN ; print STDIN "abc" ;EXPECTUse of EQ is deprecated at - line 5.print() on closed filehandle STDIN at - line 6.########-W# lint: check runtime $^W is zapped$^W = 0 ;close STDIN ; print STDIN "abc" ;EXPECTprint() on closed filehandle STDIN at - line 4.########-W# lint: check runtime $^W is zapped{  $^W = 0 ;  close STDIN ; print STDIN "abc" ;}EXPECTprint() on closed filehandle STDIN at - line 5.########-W# lint: check "no warnings" is zappedno warnings ;$a = $b = 1 ;$a = 1 if $a EQ $b ;close STDIN ; print STDIN "abc" ;EXPECTUse of EQ is deprecated at - line 5.print() on closed filehandle STDIN at - line 6.########-W# lint: check "no warnings" is zapped{  no warnings ;  close STDIN ; print STDIN "abc" ;}EXPECTprint() on closed filehandle STDIN at - line 5.########-Ww# lint: check combination of -w and -W{  $^W = 0 ;  close STDIN ; print STDIN "abc" ;}EXPECTprint() on closed filehandle STDIN at - line 5.########-W--FILE-- abc.pmno warnings 'deprecated' ;my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- no warnings 'uninitialized' ;use abc;my $a ; chop $a ;EXPECTUse of EQ is deprecated at abc.pm line 3.Use of uninitialized value in scalar chop at - line 3.########-W--FILE-- abcno warnings 'deprecated' ;my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- no warnings 'uninitialized' ;require "./abc";my $a ; chop $a ;EXPECTUse of EQ is deprecated at ./abc line 3.Use of uninitialized value in scalar chop at - line 3.########-W--FILE-- abc.pmBEGIN {$^W = 0}my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- $^W = 0 ;use abc;my $a ; chop $a ;EXPECTUse of EQ is deprecated at abc.pm line 3.Use of uninitialized value in scalar chop at - line 3.########-W--FILE-- abcBEGIN {$^W = 0}my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- $^W = 0 ;require "./abc";my $a ; chop $a ;EXPECTUse of EQ is deprecated at ./abc line 3.Use of uninitialized value in scalar chop at - line 3.########-W# Check scope of pragma with eval{    no warnings ;    eval '        my $b ; chop $b ;    '; print STDERR $@ ;    my $b ; chop $b ;}EXPECTUse of uninitialized value in scalar chop at (eval 1) line 2.Use of uninitialized value in scalar chop at - line 8.########-W# Check scope of pragma with evaluse warnings;{    no warnings ;    eval q[         use warnings 'uninitialized' ;        my $b ; chop $b ;    ]; print STDERR $@;    my $b ; chop $b ;}EXPECTUse of uninitialized value in scalar chop at (eval 1) line 3.Use of uninitialized value in scalar chop at - line 10.########-W# Check scope of pragma with evalno warnings;{    use warnings 'uninitialized' ;    eval '        my $b ; chop $b ;    '; print STDERR $@ ;    my $b ; chop $b ;}EXPECTUse of uninitialized value in scalar chop at (eval 1) line 2.Use of uninitialized value in scalar chop at - line 9.########-W# Check scope of pragma with evalno warnings;{    use warnings 'uninitialized' ;    eval '        no warnings ;        my $b ; chop $b ;    '; print STDERR $@ ;    my $b ; chop $b ;}EXPECTUse of uninitialized value in scalar chop at (eval 1) line 3.Use of uninitialized value in scalar chop at - line 10.########-W# Check scope of pragma with evaluse warnings;{    my $a = "1"; my $b = "2";    no warnings ;    eval q[         use warnings 'deprecated' ;        1 if $a EQ $b ;    ]; print STDERR $@;    1 if $a EQ $b ;}EXPECTUse of EQ is deprecated at - line 11.Use of EQ is deprecated at (eval 1) line 3.########-W# Check scope of pragma with evalno warnings;{    my $a = "1"; my $b = "2";    use warnings 'deprecated' ;    eval '        1 if $a EQ $b ;    '; print STDERR $@;    1 if $a EQ $b ;}EXPECTUse of EQ is deprecated at - line 10.Use of EQ is deprecated at (eval 1) line 2.########-W# Check scope of pragma with evalno warnings;{    my $a = "1"; my $b = "2";    use warnings 'deprecated' ;    eval '        no warnings ;        1 if $a EQ $b ;    '; print STDERR $@;    1 if $a EQ $b ;}EXPECTUse of EQ is deprecated at - line 11.Use of EQ is deprecated at (eval 1) line 3.