29 Subroutine %s redefined
31 Invalid conversion in %s:
33 Undefined value assigned to typeglob
35 Possible Y2K bug: %d format string following '19'
37 Reference is already weak [Perl_sv_rvweaken] <<TODO
41 Malformed UTF-8 character [sv_pos_b2u] (not tested: difficult to produce
44 Mandatory Warnings TODO
46 Attempt to free non-arena SV: 0x%lx [del_sv]
47 Reference miscount in sv_replace() [sv_replace]
48 Attempt to free unreferenced scalar [sv_free]
49 Attempt to free temp prematurely: SV 0x%lx [sv_free]
50 semi-panic: attempt to dup freed string [newSVsv]
56 use warnings 'uninitialized' ;
58 no warnings 'uninitialized' ;
61 Use of uninitialized value $a[0] in integer addition (+) at - line 4.
65 sub TIESCALAR { my $x ; bless \$x}
66 sub FETCH { return undef }
67 sub STORE { return 1 }
71 use warnings 'uninitialized' ;
73 no warnings 'uninitialized' ;
76 Use of uninitialized value $A in integer multiplication (*) at - line 10.
80 use warnings 'uninitialized' ;
82 no warnings 'uninitialized' ;
85 Use of uninitialized value $x in integer multiplication (*) at - line 4.
89 sub TIESCALAR { my $x ; bless \$x}
90 sub FETCH { return undef }
91 sub STORE { return 1 }
94 use warnings 'uninitialized' ;
97 no warnings 'uninitialized' ;
101 Use of uninitialized value $A in bitwise or (|) at - line 10.
104 use warnings 'uninitialized' ;
107 no warnings 'uninitialized' ;
111 Use of uninitialized value within @a in bitwise or (|) at - line 4.
114 use warnings 'uninitialized' ;
117 no warnings 'uninitialized' ;
121 Use of uninitialized value within @a in bitwise and (&) at - line 4.
124 use warnings 'uninitialized' ;
127 no warnings 'uninitialized' ;
131 Use of uninitialized value within @a in 1's complement (~) at - line 4.
134 use warnings 'uninitialized' ;
136 no warnings 'uninitialized' ;
139 Use of uninitialized value $x in multiplication (*) at - line 3.
142 use warnings 'uninitialized' ;
144 no warnings 'uninitialized' ;
147 Use of uninitialized value $a[0] in addition (+) at - line 3.
151 sub TIESCALAR { my $x ; bless \$x}
152 sub FETCH { return undef }
153 sub STORE { return 1 }
156 use warnings 'uninitialized' ;
158 no warnings 'uninitialized' ;
161 Use of uninitialized value $A in multiplication (*) at - line 9.
164 use warnings 'uninitialized' ;
166 no warnings 'uninitialized' ;
169 Use of uninitialized value $y in addition (+) at - line 3.
172 use warnings 'uninitialized' ;
173 $x = chop undef ; # g
174 no warnings 'uninitialized' ;
175 $x = chop undef ; # g
177 Modification of a read-only value attempted at - line 3.
180 use warnings 'uninitialized' ;
182 no warnings 'uninitialized' ;
185 Use of uninitialized value $y in scalar chop at - line 3.
189 sub TIESCALAR { my $x ; bless \$x}
190 sub FETCH { return undef }
191 sub STORE { return 1 }
194 use warnings 'uninitialized' ;
197 no warnings 'uninitialized' ;
201 Use of uninitialized value $A in concatenation (.) or string at - line 10.
203 # perlbug 20011116.125
204 use warnings 'uninitialized';
206 $foo = join '', $a, "\n";
210 Use of uninitialized value $a in join or string at - line 4.
211 Use of uninitialized value $a in concatenation (.) or string at - line 5.
212 Use of uninitialized value $a in concatenation (.) or string at - line 6.
215 use warnings 'numeric' ;
216 sub TIESCALAR{bless[]} ;
220 no warnings 'numeric' ;
223 Argument "def" isn't numeric in addition (+) at - line 6.
226 use warnings 'numeric' ;
228 no warnings 'numeric' ;
231 Argument "def" isn't numeric in addition (+) at - line 3.
234 use warnings 'numeric' ;
237 no warnings 'numeric' ;
240 Argument "def" isn't numeric in addition (+) at - line 4.
243 use warnings 'numeric' ; use integer ;
246 no warnings 'numeric' ;
249 Argument "def" isn't numeric in integer addition (+) at - line 4.
252 use warnings 'numeric' ;
254 no warnings 'numeric' ;
257 Argument "def" isn't numeric in bitwise and (&) at - line 3.
260 use warnings 'numeric' ;
261 my $x = pack i => "def" ;
262 no warnings 'numeric' ;
263 my $z = pack i => "def" ;
265 Argument "def" isn't numeric in pack at - line 3.
268 use warnings 'numeric' ;
271 no warnings 'numeric' ;
274 Argument "d\0f" isn't numeric in addition (+) at - line 4.
277 use warnings 'redefine' ;
281 no warnings 'redefine' ;
285 Subroutine main::fred redefined at - line 5.
288 use warnings 'printf' ;
289 open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
291 my $a = sprintf "%z" ;
295 $a = sprintf "%\x02" ;
296 no warnings 'printf' ;
302 $a = sprintf "%\x02" ;
304 Invalid conversion in sprintf: "%z" at - line 5.
305 Invalid conversion in sprintf: end of string at - line 7.
306 Invalid conversion in sprintf: "%\002" at - line 9.
307 Invalid conversion in printf: "%z" at - line 4.
308 Invalid conversion in printf: end of string at - line 6.
309 Invalid conversion in printf: "%\002" at - line 8.
312 use warnings 'misc' ;
317 Undefined value assigned to typeglob at - line 3.
323 unless ($Config{ccflags} =~ /Y2KWARN/) {
324 print "SKIPPED\n# perl not built with -DPERL_Y2KWARN";
331 $x = printf "19%02d\n", $yy;
332 $x = sprintf "#19%02d\n", $yy;
333 $x = printf " 19%02d\n", 78;
334 $x = sprintf "19%02d\n", 78;
335 $x = printf "319%02d\n", $yy;
336 $x = sprintf "319%02d\n", $yy;
338 $x = printf "19%02d\n", $yy;
339 $x = sprintf "19%02d\n", $yy;
340 $x = printf "19%02d\n", 78;
341 $x = sprintf "19%02d\n", 78;
343 Possible Y2K bug: %d format string following '19' at - line 16.
344 Possible Y2K bug: %d format string following '19' at - line 13.
346 Possible Y2K bug: %d format string following '19' at - line 14.
347 Possible Y2K bug: %d format string following '19' at - line 15.
354 use warnings 'numeric' ;
355 $a = "\x{100}\x{200}" * 42;
356 no warnings 'numeric' ;
357 $a = "\x{100}\x{200}" * 42;
359 Argument "\x{100}\x{200}" isn't numeric in multiplication (*) at - line 3.
362 use warnings 'numeric' ;
363 $a = "\x{100}\x{200}"; $a = -$a;
364 no warnings 'numeric' ;
365 $a = "\x{100}\x{200}"; $a = -$a;
367 Argument "\x{100}\x{200}" isn't numeric in negation (-) at - line 3.
370 open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
371 use warnings 'printf';
373 $s = sprintf "%4s", $a;
375 $s = sprintf "%-4s", $a;
377 $s = sprintf "%*s", -4, $a;
378 no warnings 'printf';
379 $s = sprintf "%4s", $a;
381 $s = sprintf "%-4s", $a;
384 Newline in left-justified string for sprintf at - line 7.
385 Newline in left-justified string for printf at - line 8.
386 Newline in left-justified string for sprintf at - line 9.