Commit | Line | Data |
0453d815 |
1 | sv.c |
599cee73 |
2 | |
3 | warn(warn_uninit); |
4 | |
5 | warn(warn_uninit); |
6 | |
7 | warn(warn_uninit); |
8 | |
9 | warn(warn_uninit); |
10 | |
11 | not_a_number(sv); |
12 | |
13 | not_a_number(sv); |
14 | |
15 | warn(warn_uninit); |
16 | |
17 | not_a_number(sv); |
18 | |
19 | warn(warn_uninit); |
20 | |
21 | not_a_number(sv); |
22 | |
23 | not_a_number(sv); |
24 | |
25 | warn(warn_uninit); |
26 | |
27 | warn(warn_uninit); |
28 | |
29 | Subroutine %s redefined |
30 | |
31 | Invalid conversion in %s: |
32 | |
33 | Undefined value assigned to typeglob |
34 | |
767a6a26 |
35 | Reference is already weak [Perl_sv_rvweaken] <<TODO |
36 | |
0453d815 |
37 | Mandatory Warnings |
38 | ------------------ |
39 | Malformed UTF-8 character [sv_pos_b2u] |
40 | my $a = rindex "a\xff bc ", "bc" ; |
41 | |
42 | Mandatory Warnings TODO |
43 | ------------------ |
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] |
49 | |
599cee73 |
50 | |
51 | __END__ |
52 | # sv.c |
53 | use integer ; |
4438c4b7 |
54 | use warnings 'uninitialized' ; |
599cee73 |
55 | $x = 1 + $a[0] ; # a |
4438c4b7 |
56 | no warnings 'uninitialized' ; |
0453d815 |
57 | $x = 1 + $b[0] ; # a |
599cee73 |
58 | EXPECT |
59 | Use of uninitialized value at - line 4. |
60 | ######## |
61 | # sv.c (sv_2iv) |
62 | package fred ; |
63 | sub TIESCALAR { my $x ; bless \$x} |
64 | sub FETCH { return undef } |
65 | sub STORE { return 1 } |
66 | package main ; |
67 | tie $A, 'fred' ; |
68 | use integer ; |
4438c4b7 |
69 | use warnings 'uninitialized' ; |
599cee73 |
70 | $A *= 2 ; |
4438c4b7 |
71 | no warnings 'uninitialized' ; |
0453d815 |
72 | $A *= 2 ; |
599cee73 |
73 | EXPECT |
74 | Use of uninitialized value at - line 10. |
75 | ######## |
76 | # sv.c |
77 | use integer ; |
4438c4b7 |
78 | use warnings 'uninitialized' ; |
599cee73 |
79 | my $x *= 2 ; #b |
4438c4b7 |
80 | no warnings 'uninitialized' ; |
0453d815 |
81 | my $y *= 2 ; #b |
599cee73 |
82 | EXPECT |
83 | Use of uninitialized value at - line 4. |
84 | ######## |
85 | # sv.c (sv_2uv) |
86 | package fred ; |
87 | sub TIESCALAR { my $x ; bless \$x} |
88 | sub FETCH { return undef } |
89 | sub STORE { return 1 } |
90 | package main ; |
91 | tie $A, 'fred' ; |
4438c4b7 |
92 | use warnings 'uninitialized' ; |
599cee73 |
93 | $B = 0 ; |
94 | $B |= $A ; |
4438c4b7 |
95 | no warnings 'uninitialized' ; |
0453d815 |
96 | $B = 0 ; |
97 | $B |= $A ; |
599cee73 |
98 | EXPECT |
99 | Use of uninitialized value at - line 10. |
100 | ######## |
101 | # sv.c |
4438c4b7 |
102 | use warnings 'uninitialized' ; |
599cee73 |
103 | my $Y = 1 ; |
0453d815 |
104 | my $x = 1 | $a[$Y] ; |
4438c4b7 |
105 | no warnings 'uninitialized' ; |
0453d815 |
106 | my $Y = 1 ; |
107 | $x = 1 | $b[$Y] ; |
599cee73 |
108 | EXPECT |
109 | Use of uninitialized value at - line 4. |
110 | ######## |
111 | # sv.c |
4438c4b7 |
112 | use warnings 'uninitialized' ; |
599cee73 |
113 | my $x *= 1 ; # d |
4438c4b7 |
114 | no warnings 'uninitialized' ; |
0453d815 |
115 | my $y *= 1 ; # d |
599cee73 |
116 | EXPECT |
117 | Use of uninitialized value at - line 3. |
118 | ######## |
119 | # sv.c |
4438c4b7 |
120 | use warnings 'uninitialized' ; |
599cee73 |
121 | $x = 1 + $a[0] ; # e |
4438c4b7 |
122 | no warnings 'uninitialized' ; |
0453d815 |
123 | $x = 1 + $b[0] ; # e |
599cee73 |
124 | EXPECT |
125 | Use of uninitialized value at - line 3. |
126 | ######## |
127 | # sv.c (sv_2nv) |
128 | package fred ; |
129 | sub TIESCALAR { my $x ; bless \$x} |
130 | sub FETCH { return undef } |
131 | sub STORE { return 1 } |
132 | package main ; |
133 | tie $A, 'fred' ; |
4438c4b7 |
134 | use warnings 'uninitialized' ; |
599cee73 |
135 | $A *= 2 ; |
4438c4b7 |
136 | no warnings 'uninitialized' ; |
0453d815 |
137 | $A *= 2 ; |
599cee73 |
138 | EXPECT |
139 | Use of uninitialized value at - line 9. |
140 | ######## |
141 | # sv.c |
4438c4b7 |
142 | use warnings 'uninitialized' ; |
599cee73 |
143 | $x = $y + 1 ; # f |
4438c4b7 |
144 | no warnings 'uninitialized' ; |
0453d815 |
145 | $x = $z + 1 ; # f |
599cee73 |
146 | EXPECT |
147 | Use of uninitialized value at - line 3. |
148 | ######## |
149 | # sv.c |
4438c4b7 |
150 | use warnings 'uninitialized' ; |
599cee73 |
151 | $x = chop undef ; # g |
4438c4b7 |
152 | no warnings 'uninitialized' ; |
0453d815 |
153 | $x = chop undef ; # g |
599cee73 |
154 | EXPECT |
b0c98cec |
155 | Modification of a read-only value attempted at - line 3. |
599cee73 |
156 | ######## |
157 | # sv.c |
4438c4b7 |
158 | use warnings 'uninitialized' ; |
599cee73 |
159 | $x = chop $y ; # h |
4438c4b7 |
160 | no warnings 'uninitialized' ; |
0453d815 |
161 | $x = chop $z ; # h |
599cee73 |
162 | EXPECT |
163 | Use of uninitialized value at - line 3. |
164 | ######## |
165 | # sv.c (sv_2pv) |
166 | package fred ; |
167 | sub TIESCALAR { my $x ; bless \$x} |
168 | sub FETCH { return undef } |
169 | sub STORE { return 1 } |
170 | package main ; |
171 | tie $A, 'fred' ; |
4438c4b7 |
172 | use warnings 'uninitialized' ; |
599cee73 |
173 | $B = "" ; |
174 | $B .= $A ; |
4438c4b7 |
175 | no warnings 'uninitialized' ; |
0453d815 |
176 | $C = "" ; |
177 | $C .= $A ; |
599cee73 |
178 | EXPECT |
179 | Use of uninitialized value at - line 10. |
180 | ######## |
181 | # sv.c |
4438c4b7 |
182 | use warnings 'numeric' ; |
599cee73 |
183 | sub TIESCALAR{bless[]} ; |
184 | sub FETCH {"def"} ; |
185 | tie $a,"main" ; |
0453d815 |
186 | my $b = 1 + $a; |
4438c4b7 |
187 | no warnings 'numeric' ; |
0453d815 |
188 | my $c = 1 + $a; |
599cee73 |
189 | EXPECT |
190 | Argument "def" isn't numeric in add at - line 6. |
191 | ######## |
192 | # sv.c |
4438c4b7 |
193 | use warnings 'numeric' ; |
599cee73 |
194 | my $x = 1 + "def" ; |
4438c4b7 |
195 | no warnings 'numeric' ; |
0453d815 |
196 | my $z = 1 + "def" ; |
599cee73 |
197 | EXPECT |
198 | Argument "def" isn't numeric in add at - line 3. |
199 | ######## |
200 | # sv.c |
4438c4b7 |
201 | use warnings 'numeric' ; |
599cee73 |
202 | my $a = "def" ; |
203 | my $x = 1 + $a ; |
4438c4b7 |
204 | no warnings 'numeric' ; |
0453d815 |
205 | my $y = 1 + $a ; |
599cee73 |
206 | EXPECT |
207 | Argument "def" isn't numeric in add at - line 4. |
208 | ######## |
209 | # sv.c |
4438c4b7 |
210 | use warnings 'numeric' ; use integer ; |
599cee73 |
211 | my $a = "def" ; |
212 | my $x = 1 + $a ; |
4438c4b7 |
213 | no warnings 'numeric' ; |
0453d815 |
214 | my $z = 1 + $a ; |
599cee73 |
215 | EXPECT |
216 | Argument "def" isn't numeric in i_add at - line 4. |
217 | ######## |
218 | # sv.c |
4438c4b7 |
219 | use warnings 'numeric' ; |
599cee73 |
220 | my $x = 1 & "def" ; |
4438c4b7 |
221 | no warnings 'numeric' ; |
0453d815 |
222 | my $z = 1 & "def" ; |
599cee73 |
223 | EXPECT |
224 | Argument "def" isn't numeric in bit_and at - line 3. |
225 | ######## |
226 | # sv.c |
4438c4b7 |
227 | use warnings 'redefine' ; |
599cee73 |
228 | sub fred {} |
229 | sub joe {} |
230 | *fred = \&joe ; |
4438c4b7 |
231 | no warnings 'redefine' ; |
0453d815 |
232 | sub jim {} |
233 | *jim = \&joe ; |
599cee73 |
234 | EXPECT |
235 | Subroutine fred redefined at - line 5. |
236 | ######## |
237 | # sv.c |
4438c4b7 |
238 | use warnings 'printf' ; |
3eeba6fb |
239 | open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ; |
cf2093f6 |
240 | printf F "%z\n" ; |
241 | my $a = sprintf "%z" ; |
599cee73 |
242 | printf F "%" ; |
243 | $a = sprintf "%" ; |
244 | printf F "%\x02" ; |
245 | $a = sprintf "%\x02" ; |
4438c4b7 |
246 | no warnings 'printf' ; |
cf2093f6 |
247 | printf F "%z\n" ; |
248 | $a = sprintf "%z" ; |
0453d815 |
249 | printf F "%" ; |
250 | $a = sprintf "%" ; |
251 | printf F "%\x02" ; |
252 | $a = sprintf "%\x02" ; |
599cee73 |
253 | EXPECT |
cf2093f6 |
254 | Invalid conversion in sprintf: "%z" at - line 5. |
599cee73 |
255 | Invalid conversion in sprintf: end of string at - line 7. |
256 | Invalid conversion in sprintf: "%\002" at - line 9. |
cf2093f6 |
257 | Invalid conversion in printf: "%z" at - line 4. |
599cee73 |
258 | Invalid conversion in printf: end of string at - line 6. |
259 | Invalid conversion in printf: "%\002" at - line 8. |
260 | ######## |
261 | # sv.c |
4438c4b7 |
262 | use warnings 'unsafe' ; |
599cee73 |
263 | *a = undef ; |
4438c4b7 |
264 | no warnings 'unsafe' ; |
0453d815 |
265 | *b = undef ; |
599cee73 |
266 | EXPECT |
267 | Undefined value assigned to typeglob at - line 3. |
0453d815 |
268 | ######## |
269 | # sv.c |
270 | use utf8 ; |
271 | $^W =0 ; |
272 | { |
4438c4b7 |
273 | use warnings 'utf8' ; |
0453d815 |
274 | my $a = rindex "a\xff bc ", "bc" ; |
4438c4b7 |
275 | no warnings 'utf8' ; |
0453d815 |
276 | $a = rindex "a\xff bc ", "bc" ; |
277 | } |
278 | my $a = rindex "a\xff bc ", "bc" ; |
279 | EXPECT |
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. |