29 Subroutine %s redefined
31 Invalid conversion in %s:
33 Undefined value assigned to typeglob
35 Reference is already weak [Perl_sv_rvweaken] <<TODO
39 Malformed UTF-8 character [sv_pos_b2u] (not tested: difficult to produce
42 Mandatory Warnings TODO
44 Attempt to free non-arena SV: 0x%lx [del_sv]
45 Reference miscount in sv_replace() [sv_replace]
46 Attempt to free unreferenced scalar [sv_free]
47 Attempt to free temp prematurely: SV 0x%lx [sv_free]
48 semi-panic: attempt to dup freed string [newSVsv]
54 use warnings 'uninitialized' ;
56 no warnings 'uninitialized' ;
59 Use of uninitialized value $a[0] in integer addition (+) at - line 4.
63 sub TIESCALAR { my $x ; bless \$x}
64 sub FETCH { return undef }
65 sub STORE { return 1 }
69 use warnings 'uninitialized' ;
71 no warnings 'uninitialized' ;
74 Use of uninitialized value $A in integer multiplication (*) at - line 10.
78 use warnings 'uninitialized' ;
80 no warnings 'uninitialized' ;
83 Use of uninitialized value $x in integer multiplication (*) at - line 4.
87 sub TIESCALAR { my $x ; bless \$x}
88 sub FETCH { return undef }
89 sub STORE { return 1 }
92 use warnings 'uninitialized' ;
95 no warnings 'uninitialized' ;
99 Use of uninitialized value $A in bitwise or (|) at - line 10.
102 use warnings 'uninitialized' ;
105 no warnings 'uninitialized' ;
109 Use of uninitialized value within @a in bitwise or (|) at - line 4.
112 use warnings 'uninitialized' ;
115 no warnings 'uninitialized' ;
119 Use of uninitialized value within @a in bitwise and (&) at - line 4.
122 use warnings 'uninitialized' ;
125 no warnings 'uninitialized' ;
129 Use of uninitialized value within @a in 1's complement (~) at - line 4.
132 use warnings 'uninitialized' ;
134 no warnings 'uninitialized' ;
137 Use of uninitialized value $x in multiplication (*) at - line 3.
140 use warnings 'uninitialized' ;
142 no warnings 'uninitialized' ;
145 Use of uninitialized value $a[0] in addition (+) at - line 3.
149 sub TIESCALAR { my $x ; bless \$x}
150 sub FETCH { return undef }
151 sub STORE { return 1 }
154 use warnings 'uninitialized' ;
156 no warnings 'uninitialized' ;
159 Use of uninitialized value $A in multiplication (*) at - line 9.
162 use warnings 'uninitialized' ;
164 no warnings 'uninitialized' ;
167 Use of uninitialized value $y in addition (+) at - line 3.
170 use warnings 'uninitialized' ;
171 $x = chop undef ; # g
172 no warnings 'uninitialized' ;
173 $x = chop undef ; # g
175 Modification of a read-only value attempted at - line 3.
178 use warnings 'uninitialized' ;
180 no warnings 'uninitialized' ;
183 Use of uninitialized value $y in scalar chop at - line 3.
187 sub TIESCALAR { my $x ; bless \$x}
188 sub FETCH { return undef }
189 sub STORE { return 1 }
192 use warnings 'uninitialized' ;
195 no warnings 'uninitialized' ;
199 Use of uninitialized value $A in concatenation (.) or string at - line 10.
201 # perlbug 20011116.125
202 use warnings 'uninitialized';
204 $foo = join '', $a, "\n";
208 Use of uninitialized value $a in join or string at - line 4.
209 Use of uninitialized value $a in concatenation (.) or string at - line 5.
210 Use of uninitialized value $a in concatenation (.) or string at - line 6.
213 use warnings 'numeric' ;
214 sub TIESCALAR{bless[]} ;
218 no warnings 'numeric' ;
221 Argument "def" isn't numeric in addition (+) at - line 6.
224 use warnings 'numeric' ;
226 no warnings 'numeric' ;
229 Argument "def" isn't numeric in addition (+) at - line 3.
232 use warnings 'numeric' ;
235 no warnings 'numeric' ;
238 Argument "def" isn't numeric in addition (+) at - line 4.
241 use warnings 'numeric' ; use integer ;
244 no warnings 'numeric' ;
247 Argument "def" isn't numeric in integer addition (+) at - line 4.
250 use warnings 'numeric' ;
252 no warnings 'numeric' ;
255 Argument "def" isn't numeric in bitwise and (&) at - line 3.
258 use warnings 'numeric' ;
259 my $x = pack i => "def" ;
260 no warnings 'numeric' ;
261 my $z = pack i => "def" ;
263 Argument "def" isn't numeric in pack at - line 3.
266 use warnings 'numeric' ;
269 no warnings 'numeric' ;
272 Argument "d\0f" isn't numeric in addition (+) at - line 4.
275 use warnings 'redefine' ;
279 no warnings 'redefine' ;
283 Subroutine main::fred redefined at - line 5.
286 use warnings 'printf' ;
287 open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
289 my $a = sprintf "%z" ;
293 $a = sprintf "%\x02" ;
295 $a = sprintf "%llz" ;
297 $a = sprintf "%25llz" ;
299 $a = sprintf "%+2Lz" ;
301 $a = sprintf "%+2ll" ;
302 printf F "%+2L\x03" ;
303 $a = sprintf "%+2L\x03" ;
304 no warnings 'printf' ;
310 $a = sprintf "%\x02" ;
312 $a = sprintf "%llz" ;
314 $a = sprintf "%25llz" ;
316 $a = sprintf "%+2Lz" ;
318 $a = sprintf "%+2ll" ;
319 printf F "%+2L\x03" ;
320 $a = sprintf "%+2L\x03" ;
322 Invalid conversion in printf: "%z" at - line 4.
323 Invalid conversion in sprintf: "%z" at - line 5.
324 Invalid conversion in printf: end of string at - line 6.
325 Invalid conversion in sprintf: end of string at - line 7.
326 Invalid conversion in printf: "%\002" at - line 8.
327 Invalid conversion in sprintf: "%\002" at - line 9.
328 Invalid conversion in printf: "%llz" at - line 10.
329 Invalid conversion in sprintf: "%llz" at - line 11.
330 Invalid conversion in printf: "%25llz" at - line 12.
331 Invalid conversion in sprintf: "%25llz" at - line 13.
332 Invalid conversion in printf: "%+2Lz" at - line 14.
333 Invalid conversion in sprintf: "%+2Lz" at - line 15.
334 Invalid conversion in printf: "%+2ll" at - line 16.
335 Invalid conversion in sprintf: "%+2ll" at - line 17.
336 Invalid conversion in printf: "%+2L\003" at - line 18.
337 Invalid conversion in sprintf: "%+2L\003" at - line 19.
340 use warnings 'misc' ;
345 Undefined value assigned to typeglob at - line 3.
348 use warnings 'numeric' ;
349 $a = "\x{100}\x{200}" * 42;
350 no warnings 'numeric' ;
351 $a = "\x{100}\x{200}" * 42;
353 Argument "\x{100}\x{200}" isn't numeric in multiplication (*) at - line 3.
356 use warnings 'numeric' ;
357 $a = "\x{100}\x{200}"; $a = -$a;
358 no warnings 'numeric' ;
359 $a = "\x{100}\x{200}"; $a = -$a;
361 Argument "\x{100}\x{200}" isn't numeric in negation (-) at - line 3.