5 # lint: check compile time $^W is zapped
9 close STDIN ; print STDIN "abc" ;
11 Reversed += operator at - line 5.
12 print() on closed filehandle STDIN at - line 6.
15 # lint: check runtime $^W is zapped
17 close STDIN ; print STDIN "abc" ;
19 print() on closed filehandle STDIN at - line 4.
22 # lint: check runtime $^W is zapped
25 close STDIN ; print STDIN "abc" ;
28 print() on closed filehandle STDIN at - line 5.
31 # lint: check "no warnings" is zapped
35 close STDIN ; print STDIN "abc" ;
37 Reversed += operator at - line 5.
38 print() on closed filehandle STDIN at - line 6.
41 # lint: check "no warnings" is zapped
44 close STDIN ; print STDIN "abc" ;
47 print() on closed filehandle STDIN at - line 5.
50 # lint: check combination of -w and -W
53 close STDIN ; print STDIN "abc" ;
56 print() on closed filehandle STDIN at - line 5.
61 no warnings 'syntax' ;
66 no warnings 'uninitialized' ;
70 Reversed += operator at abc.pm line 4.
71 Use of uninitialized value $a in scalar chop at - line 3.
76 no warnings 'syntax' ;
81 no warnings 'uninitialized' ;
85 Reversed += operator at ./abc line 4.
86 Use of uninitialized value $a in scalar chop at - line 3.
100 Reversed += operator at abc.pm line 4.
101 Use of uninitialized value $a in scalar chop at - line 3.
114 Reversed += operator at ./abc line 3.
115 Use of uninitialized value $a in scalar chop at - line 3.
118 # Check scope of pragma with eval
127 Use of uninitialized value $b in scalar chop at (eval 1) line 2.
128 Use of uninitialized value $b in scalar chop at - line 8.
131 # Check scope of pragma with eval
136 use warnings 'uninitialized' ;
142 Use of uninitialized value $b in scalar chop at (eval 1) line 3.
143 Use of uninitialized value $b in scalar chop at - line 10.
146 # Check scope of pragma with eval
149 use warnings 'uninitialized' ;
156 Use of uninitialized value $b in scalar chop at (eval 1) line 2.
157 Use of uninitialized value $b in scalar chop at - line 9.
160 # Check scope of pragma with eval
163 use warnings 'uninitialized' ;
171 Use of uninitialized value $b in scalar chop at (eval 1) line 3.
172 Use of uninitialized value $b in scalar chop at - line 10.
175 # Check scope of pragma with eval
178 my $a = "1"; my $b = "2";
181 use warnings 'syntax' ;
187 Reversed += operator at - line 11.
188 Reversed += operator at (eval 1) line 3.
191 # Check scope of pragma with eval
194 my $a = "1"; my $b = "2";
195 use warnings 'syntax' ;
202 Reversed += operator at - line 10.
203 Reversed += operator at (eval 1) line 2.
206 # Check scope of pragma with eval
209 my $a = "1"; my $b = "2";
210 use warnings 'syntax' ;
218 Reversed += operator at - line 11.
219 Reversed += operator at (eval 1) line 3.