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 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 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 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 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 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 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 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 in scalar chop at - line 5.
147 Use of uninitialized value 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 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 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 in scalar chop at (eval 1) line 2.
230 Use of uninitialized value 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 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.
281 use warnings 'void' ;
286 use warnings FATAL => qw(void) ;
294 Useless use of time in void context at - line 4.
295 Useless use of length in void context at - line 8.
303 use warnings FATAL => qw(void) ;
311 Useless use of time in void context at - line 4.
312 Useless use of length in void context at - line 8.
315 use warnings FATAL => 'all';
325 print STDERR "The End.\n" ;
327 Use of uninitialized value in scalar chop at - line 8.
328 Use of uninitialized value in scalar chop at - line 11.
331 use warnings FATAL => 'all';
333 no warnings FATAL => 'all';
341 print STDERR "The End.\n" ;
343 Use of uninitialized value in scalar chop at - line 8.
344 Use of uninitialized value in scalar chop at - line 11.
347 use warnings FATAL => 'all';
349 no warnings 'syntax';
356 print STDERR "The End.\n" ;
358 Use of uninitialized value in scalar chop at - line 7.
361 use warnings FATAL => 'syntax', NONFATAL => 'void' ;
364 print STDERR "The End.\n" ;
366 Useless use of length in void context at - line 4.
370 use warnings FATAL => 'all', NONFATAL => 'void' ;
373 print STDERR "The End.\n" ;
375 Useless use of length in void context at - line 4.
379 use warnings FATAL => 'all', NONFATAL => 'void' ;
383 print STDERR "The End.\n" ;
385 Useless use of length in void context at - line 5.
386 Use of uninitialized value in scalar chomp at - line 4.
389 use warnings FATAL => 'void', NONFATAL => 'void' ;
392 print STDERR "The End.\n" ;
394 Useless use of length in void context at - line 4.
398 use warnings NONFATAL => 'void', FATAL => 'void' ;
401 print STDERR "The End.\n" ;
403 Useless use of length in void context at - line 4.
406 use warnings FATAL => 'all', NONFATAL => 'io';
409 open(F, "<true\ncd");
411 print STDERR "The End.\n" ;
413 Unsuccessful open on filename containing newline at - line 5.
414 close() on unopened filehandle fred at - line 6.
418 use warnings FATAL => 'all', NONFATAL => 'io', FATAL => 'unopened' ;
421 open(F, "<true\ncd");
423 print STDERR "The End.\n" ;
425 Unsuccessful open on filename containing newline at - line 5.
426 close() on unopened filehandle fred at - line 6.