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]
42 my $a = rindex "a\xff bc ", "bc" ;
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 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 in integer multiplication (*) at - line 10.
80 use warnings 'uninitialized' ;
82 no warnings 'uninitialized' ;
85 Use of uninitialized value 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 in bitwise or (|) at - line 10.
104 use warnings 'uninitialized' ;
107 no warnings 'uninitialized' ;
111 Use of uninitialized value in bitwise or (|) at - line 4.
114 use warnings 'uninitialized' ;
116 no warnings 'uninitialized' ;
119 Use of uninitialized value in multiplication (*) at - line 3.
122 use warnings 'uninitialized' ;
124 no warnings 'uninitialized' ;
127 Use of uninitialized value in addition (+) at - line 3.
131 sub TIESCALAR { my $x ; bless \$x}
132 sub FETCH { return undef }
133 sub STORE { return 1 }
136 use warnings 'uninitialized' ;
138 no warnings 'uninitialized' ;
141 Use of uninitialized value in multiplication (*) at - line 9.
144 use warnings 'uninitialized' ;
146 no warnings 'uninitialized' ;
149 Use of uninitialized value in addition (+) at - line 3.
152 use warnings 'uninitialized' ;
153 $x = chop undef ; # g
154 no warnings 'uninitialized' ;
155 $x = chop undef ; # g
157 Modification of a read-only value attempted at - line 3.
160 use warnings 'uninitialized' ;
162 no warnings 'uninitialized' ;
165 Use of uninitialized value in scalar chop at - line 3.
169 sub TIESCALAR { my $x ; bless \$x}
170 sub FETCH { return undef }
171 sub STORE { return 1 }
174 use warnings 'uninitialized' ;
177 no warnings 'uninitialized' ;
181 Use of uninitialized value in concatenation (.) at - line 10.
184 use warnings 'numeric' ;
185 sub TIESCALAR{bless[]} ;
189 no warnings 'numeric' ;
192 Argument "def" isn't numeric in addition (+) at - line 6.
195 use warnings 'numeric' ;
197 no warnings 'numeric' ;
200 Argument "def" isn't numeric in addition (+) at - line 3.
203 use warnings 'numeric' ;
206 no warnings 'numeric' ;
209 Argument "def" isn't numeric in addition (+) at - line 4.
212 use warnings 'numeric' ; use integer ;
215 no warnings 'numeric' ;
218 Argument "def" isn't numeric in integer addition (+) at - line 4.
221 use warnings 'numeric' ;
223 no warnings 'numeric' ;
226 Argument "def" isn't numeric in bitwise and (&) at - line 3.
229 use warnings 'redefine' ;
233 no warnings 'redefine' ;
237 Subroutine fred redefined at - line 5.
240 use warnings 'printf' ;
241 open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
243 my $a = sprintf "%z" ;
247 $a = sprintf "%\x02" ;
248 no warnings 'printf' ;
254 $a = sprintf "%\x02" ;
256 Invalid conversion in sprintf: "%z" at - line 5.
257 Invalid conversion in sprintf: end of string at - line 7.
258 Invalid conversion in sprintf: "%\002" at - line 9.
259 Invalid conversion in printf: "%z" at - line 4.
260 Invalid conversion in printf: end of string at - line 6.
261 Invalid conversion in printf: "%\002" at - line 8.
264 use warnings 'unsafe' ;
266 no warnings 'unsafe' ;
269 Undefined value assigned to typeglob at - line 3.
275 use warnings 'utf8' ;
276 my $a = rindex "a\xff bc ", "bc" ;
278 $a = rindex "a\xff bc ", "bc" ;
280 my $a = rindex "a\xff bc ", "bc" ;
282 \xff will produce malformed UTF-8 character; use \x{ff} for that at - line 6.
283 Malformed UTF-8 character at - line 6.
284 Malformed UTF-8 character at - line 10.
290 unless ($Config{ccflags} =~ /Y2KWARN/) {
291 print "SKIPPED\n# perl not built with -DPERL_Y2KWARN";
298 $x = printf "19%02d\n", $yy;
299 $x = sprintf "#19%02d\n", $yy;
300 $x = printf " 19%02d\n", 78;
301 $x = sprintf "19%02d\n", 78;
302 $x = printf "319%02d\n", $yy;
303 $x = sprintf "319%02d\n", $yy;
305 $x = printf "19%02d\n", $yy;
306 $x = sprintf "19%02d\n", $yy;
307 $x = printf "19%02d\n", 78;
308 $x = sprintf "19%02d\n", 78;
310 Possible Y2K bug: %d format string following '19' at - line 16.
311 Possible Y2K bug: %d format string following '19' at - line 13.
313 Possible Y2K bug: %d format string following '19' at - line 14.
314 Possible Y2K bug: %d format string following '19' at - line 15.