1 Check FATAL functionality
5 # Check compile time warning
6 use warnings FATAL => 'syntax' ;
12 print STDERR "The End.\n" ;
14 Reversed += operator at - line 8.
17 # Check compile time warning
18 use warnings FATAL => 'all' ;
24 print STDERR "The End.\n" ;
26 Reversed += operator at - line 8.
29 # Check runtime scope of pragma
30 use warnings FATAL => 'uninitialized' ;
36 print STDERR "The End.\n" ;
38 Use of uninitialized value $b in scalar chop at - line 8.
41 # Check runtime scope of pragma
42 use warnings FATAL => 'all' ;
48 print STDERR "The End.\n" ;
50 Use of uninitialized value $b in scalar chop at - line 8.
53 # Check runtime scope of pragma
56 use warnings FATAL => 'uninitialized' ;
57 $a = sub { my $b ; chop $b ; }
60 print STDERR "The End.\n" ;
62 Use of uninitialized value $b in scalar chop at - line 6.
65 # Check runtime scope of pragma
68 use warnings FATAL => 'all' ;
69 $a = sub { my $b ; chop $b ; }
72 print STDERR "The End.\n" ;
74 Use of uninitialized value $b in scalar chop at - line 6.
81 use warnings FATAL => 'syntax' ;
88 use warnings FATAL => 'syntax' ;
98 use warnings 'syntax' ;
102 use warnings FATAL => 'uninitialized' ;
105 print STDERR "The End.\n" ;
107 Reversed += operator at ./abc line 2.
108 Use of uninitialized value $a in scalar chop at - line 3.
112 use warnings 'syntax' ;
116 use warnings FATAL => 'uninitialized' ;
119 print STDERR "The End.\n" ;
121 Reversed += operator at abc.pm line 2.
122 Use of uninitialized value $a in scalar chop at - line 3.
125 # Check scope of pragma with eval
128 use warnings FATAL => 'uninitialized' ;
130 }; print STDERR "-- $@" ;
132 print STDERR "The End.\n" ;
134 -- Use of uninitialized value $b in scalar chop at - line 6.
138 # Check scope of pragma with eval
139 use warnings FATAL => 'uninitialized' ;
142 }; print STDERR "-- $@" ;
144 print STDERR "The End.\n" ;
146 -- Use of uninitialized value $b in scalar chop at - line 5.
147 Use of uninitialized value $b in scalar chop at - line 7.
150 # Check scope of pragma with eval
151 use warnings FATAL => 'uninitialized' ;
157 print STDERR "The End.\n" ;
159 Use of uninitialized value $b in scalar chop at - line 8.
162 # Check scope of pragma with eval
165 use warnings FATAL => 'syntax' ;
167 }; print STDERR "-- $@" ;
169 print STDERR "The End.\n" ;
171 Reversed += operator at - line 6.
174 # Check scope of pragma with eval
175 use warnings FATAL => 'syntax' ;
178 }; print STDERR "-- $@" ;
180 print STDERR "The End.\n" ;
182 Reversed += operator at - line 5.
185 # Check scope of pragma with eval
186 use warnings FATAL => 'syntax' ;
192 print STDERR "The End.\n" ;
194 Reversed += operator at - line 8.
197 # Check scope of pragma with eval
200 use warnings FATAL => 'syntax' ;
203 print STDERR "The End.\n" ;
208 # Check scope of pragma with eval
211 use warnings FATAL => 'uninitialized' ;
213 ]; print STDERR "-- $@";
215 print STDERR "The End.\n" ;
217 -- Use of uninitialized value $b in scalar chop at (eval 1) line 3.
221 # Check scope of pragma with eval
222 use warnings FATAL => 'uninitialized' ;
225 '; print STDERR "-- $@" ;
227 print STDERR "The End.\n" ;
229 -- Use of uninitialized value $b in scalar chop at (eval 1) line 2.
230 Use of uninitialized value $b in scalar chop at - line 7.
233 # Check scope of pragma with eval
234 use warnings FATAL => 'uninitialized' ;
240 print STDERR "The End.\n" ;
242 Use of uninitialized value $b in scalar chop at - line 8.
245 # Check scope of pragma with eval
248 use warnings FATAL => 'syntax' ;
250 ]; print STDERR "-- $@";
252 print STDERR "The End.\n" ;
254 -- Reversed += operator at (eval 1) line 3.
258 # Check scope of pragma with eval
259 use warnings FATAL => 'syntax' ;
262 '; print STDERR "-- $@";
263 print STDERR "The End.\n" ;
265 -- Reversed += operator at (eval 1) line 2.
269 # Check scope of pragma with eval
270 use warnings FATAL => 'syntax' ;
274 '; print STDERR "-- $@";
276 print STDERR "The End.\n" ;
278 Reversed += operator at - line 8.
280 # TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''
282 use warnings 'void' ;
287 use warnings FATAL => qw(void) ;
295 Useless use of time in void context at - line 4.
296 Useless use of length in void context at - line 8.
298 # TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''
305 use warnings FATAL => qw(void) ;
313 Useless use of time in void context at - line 4.
314 Useless use of length in void context at - line 8.
317 use warnings FATAL => 'all';
327 print STDERR "The End.\n" ;
329 Use of uninitialized value $b in scalar chop at - line 8.
330 Use of uninitialized value $b in scalar chop at - line 11.
333 use warnings FATAL => 'all';
335 no warnings FATAL => 'all';
343 print STDERR "The End.\n" ;
345 Use of uninitialized value $b in scalar chop at - line 8.
346 Use of uninitialized value $b in scalar chop at - line 11.
349 use warnings FATAL => 'all';
351 no warnings 'syntax';
358 print STDERR "The End.\n" ;
360 Use of uninitialized value $b in scalar chop at - line 7.
363 use warnings FATAL => 'syntax', NONFATAL => 'void' ;
366 print STDERR "The End.\n" ;
368 Useless use of length in void context at - line 4.
372 use warnings FATAL => 'all', NONFATAL => 'void' ;
375 print STDERR "The End.\n" ;
377 Useless use of length in void context at - line 4.
381 use warnings FATAL => 'all', NONFATAL => 'void' ;
385 print STDERR "The End.\n" ;
387 Useless use of length in void context at - line 5.
388 Use of uninitialized value $a in scalar chomp at - line 4.
391 use warnings FATAL => 'void', NONFATAL => 'void' ;
394 print STDERR "The End.\n" ;
396 Useless use of length in void context at - line 4.
399 # TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''
401 use warnings NONFATAL => 'void', FATAL => 'void' ;
404 print STDERR "The End.\n" ;
406 Useless use of length in void context at - line 4.
409 use warnings FATAL => 'all', NONFATAL => 'io';
412 open(F, "<true\ncd");
414 print STDERR "The End.\n" ;
416 Unsuccessful open on filename containing newline at - line 5.
417 close() on unopened filehandle fred at - line 6.
421 use warnings FATAL => 'all', NONFATAL => 'io', FATAL => 'unopened' ;
424 open(F, "<true\ncd");
426 print STDERR "The End.\n" ;
428 Unsuccessful open on filename containing newline at - line 5.
429 close() on unopened filehandle fred at - line 6.