Make it possible to disable and control hash key traversal randomization
[perl.git] / t / lib / warnings / sv
1   sv.c  
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
35   Reference is already weak                     [Perl_sv_rvweaken] <<TODO
36
37   vector argument not supported with alpha versions
38
39   Mandatory Warnings
40   ------------------
41   Malformed UTF-8 character [sv_pos_b2u] (not tested: difficult to produce
42                                           with perl now)
43
44   Mandatory Warnings TODO
45   ------------------
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]
51     
52
53 __END__
54 # sv.c
55 use integer ;
56 use warnings 'uninitialized' ;
57 $x = 1 + $a[0] ; # a
58 no warnings 'uninitialized' ;
59 $x = 1 + $b[0] ; # a
60 EXPECT
61 Use of uninitialized value $a[0] in integer addition (+) at - line 4.
62 ########
63 # sv.c (sv_2iv)
64 package fred ;
65 sub TIESCALAR { my $x ; bless \$x}
66 sub FETCH { return undef }
67 sub STORE { return 1 }
68 package main ;
69 tie $A, 'fred' ;
70 use integer ;
71 use warnings 'uninitialized' ;
72 $A *= 2 ;
73 no warnings 'uninitialized' ;
74 $A *= 2 ;
75 EXPECT
76 Use of uninitialized value $A in integer multiplication (*) at - line 10.
77 ########
78 # sv.c
79 use integer ;
80 use warnings 'uninitialized' ;
81 my $x *= 2 ; #b 
82 no warnings 'uninitialized' ;
83 my $y *= 2 ; #b 
84 EXPECT
85 Use of uninitialized value $x in integer multiplication (*) at - line 4.
86 ########
87 # sv.c (sv_2uv)
88 package fred ;
89 sub TIESCALAR { my $x ; bless \$x}
90 sub FETCH { return undef }
91 sub STORE { return 1 }
92 package main ;
93 tie $A, 'fred' ;
94 use warnings 'uninitialized' ;
95 $B = 0 ;
96 $B |= $A ;
97 no warnings 'uninitialized' ;
98 $B = 0 ;
99 $B |= $A ;
100 EXPECT
101 Use of uninitialized value $A in bitwise or (|) at - line 10.
102 ########
103 # sv.c
104 use warnings 'uninitialized' ;
105 my $Y = 1 ; 
106 my $x = 1 | $a[$Y] ;
107 no warnings 'uninitialized' ;
108 my $Y = 1 ; 
109 $x = 1 | $b[$Y] ;
110 EXPECT
111 Use of uninitialized value within @a in bitwise or (|) at - line 4.
112 ########
113 # sv.c
114 use warnings 'uninitialized' ;
115 my $Y = 1 ; 
116 my $x = 1 & $a[$Y] ;
117 no warnings 'uninitialized' ;
118 my $Y = 1 ; 
119 $x = 1 & $b[$Y] ;
120 EXPECT
121 Use of uninitialized value within @a in bitwise and (&) at - line 4.
122 ########
123 # sv.c
124 use warnings 'uninitialized' ;
125 my $Y = 1 ; 
126 my $x = ~$a[$Y] ;
127 no warnings 'uninitialized' ;
128 my $Y = 1 ; 
129 $x = ~$b[$Y] ;
130 EXPECT
131 Use of uninitialized value within @a in 1's complement (~) at - line 4.
132 ########
133 # sv.c
134 use warnings 'uninitialized' ;
135 my $x *= 1 ; # d
136 no warnings 'uninitialized' ;
137 my $y *= 1 ; # d
138 EXPECT
139 Use of uninitialized value $x in multiplication (*) at - line 3.
140 ########
141 # sv.c
142 use warnings 'uninitialized' ;
143 $x = 1 + $a[0] ; # e
144 no warnings 'uninitialized' ;
145 $x = 1 + $b[0] ; # e
146 EXPECT
147 Use of uninitialized value $a[0] in addition (+) at - line 3.
148 ########
149 # sv.c (sv_2nv)
150 package fred ;
151 sub TIESCALAR { my $x ; bless \$x}
152 sub FETCH { return undef }
153 sub STORE { return 1 }
154 package main ;
155 tie $A, 'fred' ;
156 use warnings 'uninitialized' ;
157 $A *= 2 ;
158 no warnings 'uninitialized' ;
159 $A *= 2 ;
160 EXPECT
161 Use of uninitialized value $A in multiplication (*) at - line 9.
162 ########
163 # sv.c
164 use warnings 'uninitialized' ;
165 $x = $y + 1 ; # f
166 no warnings 'uninitialized' ;
167 $x = $z + 1 ; # f
168 EXPECT
169 Use of uninitialized value $y in addition (+) at - line 3.
170 ########
171 # sv.c
172 use warnings 'uninitialized' ;
173 $x = chop undef ; # g
174 no warnings 'uninitialized' ;
175 $x = chop undef ; # g
176 EXPECT
177 Modification of a read-only value attempted at - line 3.
178 ########
179 # sv.c
180 use warnings 'uninitialized' ;
181 $x = chop $y ; # h
182 no warnings 'uninitialized' ;
183 $x = chop $z ; # h
184 EXPECT
185 Use of uninitialized value $y in scalar chop at - line 3.
186 ########
187 # sv.c (sv_2pv)
188 package fred ;
189 sub TIESCALAR { my $x ; bless \$x}
190 sub FETCH { return undef }
191 sub STORE { return 1 }
192 package main ;
193 tie $A, 'fred' ;
194 use warnings 'uninitialized' ;
195 $B = "" ;
196 $B .= $A ;
197 no warnings 'uninitialized' ;
198 $C = "" ;
199 $C .= $A ;
200 EXPECT
201 Use of uninitialized value $A in concatenation (.) or string at - line 10.
202 ########
203 # perlbug 20011116.125
204 use warnings 'uninitialized';
205 $a = undef;
206 $foo = join '', $a, "\n";
207 $foo = "$a\n";
208 $foo = "a:$a\n";
209 EXPECT
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.
213 ########
214 # sv.c 
215 use warnings 'numeric' ;
216 sub TIESCALAR{bless[]} ; 
217 sub FETCH {"def"} ; 
218 tie $a,"main" ; 
219 my $b = 1 + $a;
220 no warnings 'numeric' ;
221 my $c = 1 + $a;
222 EXPECT
223 Argument "def" isn't numeric in addition (+) at - line 6.
224 ########
225 # sv.c
226 use warnings 'numeric' ;
227 my $x = 1 + "def" ;
228 no warnings 'numeric' ;
229 my $z = 1 + "def" ;
230 EXPECT
231 Argument "def" isn't numeric in addition (+) at - line 3.
232 ########
233 # sv.c
234 use warnings 'numeric' ;
235 my $a = "def" ;
236 my $x = 1 + $a ;
237 no warnings 'numeric' ;
238 my $y = 1 + $a ;
239 EXPECT
240 Argument "def" isn't numeric in addition (+) at - line 4.
241 ########
242 # sv.c
243 use warnings 'numeric' ; use integer ;
244 my $a = "def" ;
245 my $x = 1 + $a ;
246 no warnings 'numeric' ;
247 my $z = 1 + $a ;
248 EXPECT
249 Argument "def" isn't numeric in integer addition (+) at - line 4.
250 ########
251 # sv.c
252 use warnings 'numeric' ;
253 my $x = 1 & "def" ;
254 no warnings 'numeric' ;
255 my $z = 1 & "def" ;
256 EXPECT
257 Argument "def" isn't numeric in bitwise and (&) at - line 3.
258 ########
259 # sv.c
260 use warnings 'numeric' ;
261 my $x = pack i => "def" ;
262 no warnings 'numeric' ;
263 my $z = pack i => "def" ;
264 EXPECT
265 Argument "def" isn't numeric in pack at - line 3.
266 ########
267 # sv.c
268 use warnings 'numeric' ; 
269 my $a = "d\0f" ;
270 my $x = 1 + $a ;
271 no warnings 'numeric' ;
272 my $z = 1 + $a ;
273 EXPECT
274 Argument "d\0f" isn't numeric in addition (+) at - line 4.
275 ########
276 # sv.c
277 use warnings 'redefine' ;
278 sub fred {}  
279 sub joe {} 
280 *fred = \&joe ;
281 no warnings 'redefine' ;
282 sub jim {} 
283 *jim = \&joe ;
284 EXPECT
285 Subroutine main::fred redefined at - line 5.
286 ########
287 # sv.c
288 use warnings 'printf' ;
289 open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
290 printf F "%y\n" ;
291 my $a = sprintf "%y" ;
292 printf F "%" ;
293 $a = sprintf "%" ;
294 printf F "%\x02" ;
295 $a = sprintf "%\x02" ;
296 printf F "%lly" ;
297 $a = sprintf "%lly" ;
298 printf F "%25lly" ;
299 $a = sprintf "%25lly" ;
300 printf F "%+2Ly" ;
301 $a = sprintf "%+2Ly" ;
302 printf F "%+2ll" ;
303 $a = sprintf "%+2ll" ;
304 printf F "%+2L\x03" ;
305 $a = sprintf "%+2L\x03" ;
306 no warnings 'printf' ;
307 printf F "%y\n" ;
308 $a = sprintf "%y" ;
309 printf F "%" ;
310 $a = sprintf "%" ;
311 printf F "%\x02" ;
312 $a = sprintf "%\x02" ;
313 printf F "%lly" ;
314 $a = sprintf "%lly" ;
315 printf F "%25lly" ;
316 $a = sprintf "%25lly" ;
317 printf F "%+2Ly" ;
318 $a = sprintf "%+2Ly" ;
319 printf F "%+2ll" ;
320 $a = sprintf "%+2ll" ;
321 printf F "%+2L\x03" ;
322 $a = sprintf "%+2L\x03" ;
323 EXPECT
324 Invalid conversion in printf: "%y" at - line 4.
325 Invalid conversion in sprintf: "%y" at - line 5.
326 Invalid conversion in printf: end of string at - line 6.
327 Invalid conversion in sprintf: end of string at - line 7.
328 Invalid conversion in printf: "%\002" at - line 8.
329 Invalid conversion in sprintf: "%\002" at - line 9.
330 Invalid conversion in printf: "%lly" at - line 10.
331 Invalid conversion in sprintf: "%lly" at - line 11.
332 Invalid conversion in printf: "%25lly" at - line 12.
333 Invalid conversion in sprintf: "%25lly" at - line 13.
334 Invalid conversion in printf: "%+2Ly" at - line 14.
335 Invalid conversion in sprintf: "%+2Ly" at - line 15.
336 Invalid conversion in printf: "%+2ll" at - line 16.
337 Invalid conversion in sprintf: "%+2ll" at - line 17.
338 Invalid conversion in printf: "%+2L\003" at - line 18.
339 Invalid conversion in sprintf: "%+2L\003" at - line 19.
340 ########
341 # sv.c
342 use warnings 'misc' ;
343 *a = undef ;
344 no warnings 'misc' ;
345 *b = undef ;
346 EXPECT
347 Undefined value assigned to typeglob at - line 3.
348 ########
349 # sv.c
350 use warnings 'numeric' ;
351 $a = "\x{100}\x{200}" * 42;
352 no warnings 'numeric' ;
353 $a = "\x{100}\x{200}" * 42;
354 EXPECT
355 Argument "\x{100}\x{200}" isn't numeric in multiplication (*) at - line 3.
356 ########
357 # sv.c
358 use warnings 'numeric' ;
359 $a = "\x{100}\x{200}"; $a = -$a;
360 no warnings 'numeric' ;
361 $a = "\x{100}\x{200}"; $a = -$a;
362 EXPECT
363 Argument "\x{100}\x{200}" isn't numeric in negation (-) at - line 3.
364 ########
365 # sv.c
366 use warnings 'redefine' ;
367 use utf8;
368 use open qw( :utf8 :std );
369 sub frèd {}  
370 sub jòè {} 
371 *frèd = \&jòè;
372 no warnings 'redefine' ;
373 sub jìm {} 
374 *jìm = \&jòè ;
375 EXPECT
376 Subroutine main::frèd redefined at - line 7.
377 ########
378 # sv.c
379 use warnings 'redefine' ;
380 use utf8;
381 use open qw( :utf8 :std );
382 sub f렏 {}  
383 sub 조Ȩ {} 
384 *f렏 = \&조Ȩ ;
385 no warnings 'redefine' ;
386 sub 짐 {} 
387 *짐 = \&조Ȩ ;
388 EXPECT
389 Subroutine main::f렏 redefined at - line 7.
390 ########
391 # sv.c
392 sprintf "%vd", new version v1.1_0;
393 use warnings 'printf' ;
394 sprintf "%vd", new version v1.1_0;
395 no warnings 'printf' ;
396 sprintf "%vd", new version v1.1_0;
397 EXPECT
398 vector argument not supported with alpha versions at - line 2.
399 vector argument not supported with alpha versions at - line 4.