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]
40 my $a = rindex "a\xff bc ", "bc" ;
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 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 at - line 10.
78 use warnings 'uninitialized' ;
80 no warnings 'uninitialized' ;
83 Use of uninitialized value 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 at - line 10.
102 use warnings 'uninitialized' ;
105 no warnings 'uninitialized' ;
109 Use of uninitialized value at - line 4.
112 use warnings 'uninitialized' ;
114 no warnings 'uninitialized' ;
117 Use of uninitialized value at - line 3.
120 use warnings 'uninitialized' ;
122 no warnings 'uninitialized' ;
125 Use of uninitialized value at - line 3.
129 sub TIESCALAR { my $x ; bless \$x}
130 sub FETCH { return undef }
131 sub STORE { return 1 }
134 use warnings 'uninitialized' ;
136 no warnings 'uninitialized' ;
139 Use of uninitialized value at - line 9.
142 use warnings 'uninitialized' ;
144 no warnings 'uninitialized' ;
147 Use of uninitialized value at - line 3.
150 use warnings 'uninitialized' ;
151 $x = chop undef ; # g
152 no warnings 'uninitialized' ;
153 $x = chop undef ; # g
155 Modification of a read-only value attempted at - line 3.
158 use warnings 'uninitialized' ;
160 no warnings 'uninitialized' ;
163 Use of uninitialized value at - line 3.
167 sub TIESCALAR { my $x ; bless \$x}
168 sub FETCH { return undef }
169 sub STORE { return 1 }
172 use warnings 'uninitialized' ;
175 no warnings 'uninitialized' ;
179 Use of uninitialized value at - line 10.
182 use warnings 'numeric' ;
183 sub TIESCALAR{bless[]} ;
187 no warnings 'numeric' ;
190 Argument "def" isn't numeric in add at - line 6.
193 use warnings 'numeric' ;
195 no warnings 'numeric' ;
198 Argument "def" isn't numeric in add at - line 3.
201 use warnings 'numeric' ;
204 no warnings 'numeric' ;
207 Argument "def" isn't numeric in add at - line 4.
210 use warnings 'numeric' ; use integer ;
213 no warnings 'numeric' ;
216 Argument "def" isn't numeric in i_add at - line 4.
219 use warnings 'numeric' ;
221 no warnings 'numeric' ;
224 Argument "def" isn't numeric in bit_and at - line 3.
227 use warnings 'redefine' ;
231 no warnings 'redefine' ;
235 Subroutine fred redefined at - line 5.
238 use warnings 'printf' ;
239 open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
241 my $a = sprintf "%z" ;
245 $a = sprintf "%\x02" ;
246 no warnings 'printf' ;
252 $a = sprintf "%\x02" ;
254 Invalid conversion in sprintf: "%z" at - line 5.
255 Invalid conversion in sprintf: end of string at - line 7.
256 Invalid conversion in sprintf: "%\002" at - line 9.
257 Invalid conversion in printf: "%z" at - line 4.
258 Invalid conversion in printf: end of string at - line 6.
259 Invalid conversion in printf: "%\002" at - line 8.
262 use warnings 'unsafe' ;
264 no warnings 'unsafe' ;
267 Undefined value assigned to typeglob at - line 3.
273 use warnings 'utf8' ;
274 my $a = rindex "a\xff bc ", "bc" ;
276 $a = rindex "a\xff bc ", "bc" ;
278 my $a = rindex "a\xff bc ", "bc" ;
280 \xff will produce malformed UTF-8 character; use \x{ff} for that at - line 6.
281 Malformed UTF-8 character at - line 6.
282 Malformed UTF-8 character at - line 10.