1N/ACheck lint

1N/A

1N/A__END__

1N/A-W

1N/A# lint: check compile time $^W is zapped

1N/ABEGIN { $^W = 0 ;}

1N/A$a = 1 ;

1N/A$a =+ 1 ;

1N/Aclose STDIN ; print STDIN "abc" ;

1N/AEXPECT

1N/AReversed += operator at - line 5.

1N/Aprint() on closed filehandle STDIN at - line 6.

1N/A########

1N/A-W

1N/A# lint: check runtime $^W is zapped

1N/A$^W = 0 ;

1N/Aclose STDIN ; print STDIN "abc" ;

1N/AEXPECT

1N/Aprint() on closed filehandle STDIN at - line 4.

1N/A########

1N/A-W

1N/A# lint: check runtime $^W is zapped

1N/A{

1N/A $^W = 0 ;

1N/A close STDIN ; print STDIN "abc" ;

1N/A}

1N/AEXPECT

1N/Aprint() on closed filehandle STDIN at - line 5.

1N/A########

1N/A-W

1N/A# lint: check "no warnings" is zapped

1N/Ano warnings ;

1N/A$a = 1 ;

1N/A$a =+ 1 ;

1N/Aclose STDIN ; print STDIN "abc" ;

1N/AEXPECT

1N/AReversed += operator at - line 5.

1N/Aprint() on closed filehandle STDIN at - line 6.

1N/A########

1N/A-W

1N/A# lint: check "no warnings" is zapped

1N/A{

1N/A no warnings ;

1N/A close STDIN ; print STDIN "abc" ;

1N/A}

1N/AEXPECT

1N/Aprint() on closed filehandle STDIN at - line 5.

1N/A########

1N/A-Ww

1N/A# lint: check combination of -w and -W

1N/A{

1N/A $^W = 0 ;

1N/A close STDIN ; print STDIN "abc" ;

1N/A}

1N/AEXPECT

1N/Aprint() on closed filehandle STDIN at - line 5.

1N/A########

1N/A-W

1N/A--FILE-- abc.pm

1N/Apackage abc;

1N/Ano warnings 'syntax' ;

1N/Amy $a = 0;

1N/A$a =+ 1 ;

1N/A1;

1N/A--FILE--

1N/Ano warnings 'uninitialized' ;

1N/Ause abc;

1N/Amy $a ; chop $a ;

1N/AEXPECT

1N/AReversed += operator at abc.pm line 4.

1N/AUse of uninitialized value in scalar chop at - line 3.

1N/A########

1N/A-W

1N/A--FILE-- abc

1N/Apackage abc;

1N/Ano warnings 'syntax' ;

1N/Amy $a = 0;

1N/A$a =+ 1 ;

1N/A1;

1N/A--FILE--

1N/Ano warnings 'uninitialized' ;

1N/Arequire "./abc";

1N/Amy $a ; chop $a ;

1N/AEXPECT

1N/AReversed += operator at ./abc line 4.

1N/AUse of uninitialized value in scalar chop at - line 3.

1N/A########

1N/A-W

1N/A--FILE-- abc.pm

1N/Apackage abc;

1N/ABEGIN {$^W = 0}

1N/Amy $a = 0 ;

1N/A$a =+ 1 ;

1N/A1;

1N/A--FILE--

1N/A$^W = 0 ;

1N/Ause abc;

1N/Amy $a ; chop $a ;

1N/AEXPECT

1N/AReversed += operator at abc.pm line 4.

1N/AUse of uninitialized value in scalar chop at - line 3.

1N/A########

1N/A-W

1N/A--FILE-- abc

1N/ABEGIN {$^W = 0}

1N/Amy $a = 0 ;

1N/A$a =+ 1 ;

1N/A1;

1N/A--FILE--

1N/A$^W = 0 ;

1N/Arequire "./abc";

1N/Amy $a ; chop $a ;

1N/AEXPECT

1N/AReversed += operator at ./abc line 3.

1N/AUse of uninitialized value in scalar chop at - line 3.

1N/A########

1N/A-W

1N/A# Check scope of pragma with eval

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/AUse of uninitialized value in scalar chop at (eval 1) line 2.

1N/AUse of uninitialized value in scalar chop at - line 8.

1N/A########

1N/A-W

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/AUse of uninitialized value in scalar chop at (eval 1) line 3.

1N/AUse of uninitialized value in scalar chop at - line 10.

1N/A########

1N/A-W

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/AUse of uninitialized value in scalar chop at (eval 1) line 2.

1N/AUse of uninitialized value in scalar chop at - line 9.

1N/A########

1N/A-W

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/AUse of uninitialized value in scalar chop at (eval 1) line 3.

1N/AUse of uninitialized value in scalar chop at - line 10.

1N/A########

1N/A-W

1N/A# Check scope of pragma with eval

1N/Ause warnings;

1N/A{

1N/A my $a = "1"; my $b = "2";

1N/A no warnings ;

1N/A eval q[

1N/A use warnings 'syntax' ;

1N/A $a =+ 1 ;

1N/A ]; print STDERR $@;

1N/A $a =+ 1 ;

1N/A}

1N/AEXPECT

1N/AReversed += operator at - line 11.

1N/AReversed += operator at (eval 1) line 3.

1N/A########

1N/A-W

1N/A# Check scope of pragma with eval

1N/Ano warnings;

1N/A{

1N/A my $a = "1"; my $b = "2";

1N/A use warnings 'syntax' ;

1N/A eval '

1N/A $a =+ 1 ;

1N/A '; print STDERR $@;

1N/A $a =+ 1 ;

1N/A}

1N/AEXPECT

1N/AReversed += operator at - line 10.

1N/AReversed += operator at (eval 1) line 2.

1N/A########

1N/A-W

1N/A# Check scope of pragma with eval

1N/Ano warnings;

1N/A{

1N/A my $a = "1"; my $b = "2";

1N/A use warnings 'syntax' ;

1N/A eval '

1N/A no warnings ;

1N/A $a =+ 1 ;

1N/A '; print STDERR $@;

1N/A $a =+ 1 ;

1N/A}

1N/AEXPECT

1N/AReversed += operator at - line 11.

1N/AReversed += operator at (eval 1) line 3.