1 Check FATAL functionality
5 # Check compile time warning
6 use warnings FATAL => 'deprecated' ;
12 print STDERR "The End.\n" ;
14 Use of EQ is deprecated at - line 8.
17 # Check runtime scope of pragma
18 use warnings FATAL => 'uninitialized' ;
24 print STDERR "The End.\n" ;
26 Use of uninitialized value in scalar chop at - line 8.
29 # Check runtime scope of pragma
32 use warnings FATAL => 'uninitialized' ;
33 $a = sub { my $b ; chop $b ; }
36 print STDERR "The End.\n" ;
38 Use of uninitialized value in scalar chop at - line 6.
45 use warnings FATAL => 'deprecated' ;
52 use warnings FATAL => 'deprecated' ;
62 use warnings 'deprecated' ;
66 use warnings FATAL => 'uninitialized' ;
69 print STDERR "The End.\n" ;
71 Use of EQ is deprecated at ./abc line 2.
72 Use of uninitialized value in scalar chop at - line 3.
76 use warnings 'deprecated' ;
80 use warnings FATAL => 'uninitialized' ;
83 print STDERR "The End.\n" ;
85 Use of EQ is deprecated at abc.pm line 2.
86 Use of uninitialized value in scalar chop at - line 3.
89 # Check scope of pragma with eval
92 use warnings FATAL => 'uninitialized' ;
94 }; print STDERR "-- $@" ;
96 print STDERR "The End.\n" ;
98 -- Use of uninitialized value in scalar chop at - line 6.
102 # Check scope of pragma with eval
103 use warnings FATAL => 'uninitialized' ;
106 }; print STDERR "-- $@" ;
108 print STDERR "The End.\n" ;
110 -- Use of uninitialized value in scalar chop at - line 5.
111 Use of uninitialized value in scalar chop at - line 7.
114 # Check scope of pragma with eval
115 use warnings FATAL => 'uninitialized' ;
121 print STDERR "The End.\n" ;
123 Use of uninitialized value in scalar chop at - line 8.
126 # Check scope of pragma with eval
129 use warnings FATAL => 'deprecated' ;
131 }; print STDERR "-- $@" ;
133 print STDERR "The End.\n" ;
135 Use of EQ is deprecated at - line 6.
138 # Check scope of pragma with eval
139 use warnings FATAL => 'deprecated' ;
142 }; print STDERR "-- $@" ;
144 print STDERR "The End.\n" ;
146 Use of EQ is deprecated at - line 5.
149 # Check scope of pragma with eval
150 use warnings FATAL => 'deprecated' ;
156 print STDERR "The End.\n" ;
158 Use of EQ is deprecated at - line 8.
161 # Check scope of pragma with eval
164 use warnings FATAL => 'deprecated' ;
167 print STDERR "The End.\n" ;
172 # Check scope of pragma with eval
175 use warnings FATAL => 'uninitialized' ;
177 ]; print STDERR "-- $@";
179 print STDERR "The End.\n" ;
181 -- Use of uninitialized value in scalar chop at (eval 1) line 3.
185 # Check scope of pragma with eval
186 use warnings FATAL => 'uninitialized' ;
189 '; print STDERR "-- $@" ;
191 print STDERR "The End.\n" ;
193 -- Use of uninitialized value in scalar chop at (eval 1) line 2.
194 Use of uninitialized value in scalar chop at - line 7.
197 # Check scope of pragma with eval
198 use warnings FATAL => 'uninitialized' ;
204 print STDERR "The End.\n" ;
206 Use of uninitialized value in scalar chop at - line 8.
209 # Check scope of pragma with eval
212 use warnings FATAL => 'deprecated' ;
214 ]; print STDERR "-- $@";
216 print STDERR "The End.\n" ;
218 -- Use of EQ is deprecated at (eval 1) line 3.
222 # Check scope of pragma with eval
223 use warnings FATAL => 'deprecated' ;
226 '; print STDERR "-- $@";
227 print STDERR "The End.\n" ;
229 -- Use of EQ is deprecated at (eval 1) line 2.
233 # Check scope of pragma with eval
234 use warnings FATAL => 'deprecated' ;
238 '; print STDERR "-- $@";
240 print STDERR "The End.\n" ;
242 Use of EQ is deprecated at - line 8.