Move the locale/strict/warnings helper files back
[p5sagit/p5-mst-13.2.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   Possible Y2K bug: %d format string following '19'
36
37   Reference is already weak                     [Perl_sv_rvweaken] <<TODO
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 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 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 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 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 in bitwise or (|) at - line 4.
112 ########
113 # sv.c
114 use warnings 'uninitialized' ;
115 my $x *= 1 ; # d
116 no warnings 'uninitialized' ;
117 my $y *= 1 ; # d
118 EXPECT
119 Use of uninitialized value in multiplication (*) at - line 3.
120 ########
121 # sv.c
122 use warnings 'uninitialized' ;
123 $x = 1 + $a[0] ; # e
124 no warnings 'uninitialized' ;
125 $x = 1 + $b[0] ; # e
126 EXPECT
127 Use of uninitialized value in addition (+) at - line 3.
128 ########
129 # sv.c (sv_2nv)
130 package fred ;
131 sub TIESCALAR { my $x ; bless \$x}
132 sub FETCH { return undef }
133 sub STORE { return 1 }
134 package main ;
135 tie $A, 'fred' ;
136 use warnings 'uninitialized' ;
137 $A *= 2 ;
138 no warnings 'uninitialized' ;
139 $A *= 2 ;
140 EXPECT
141 Use of uninitialized value in multiplication (*) at - line 9.
142 ########
143 # sv.c
144 use warnings 'uninitialized' ;
145 $x = $y + 1 ; # f
146 no warnings 'uninitialized' ;
147 $x = $z + 1 ; # f
148 EXPECT
149 Use of uninitialized value in addition (+) at - line 3.
150 ########
151 # sv.c
152 use warnings 'uninitialized' ;
153 $x = chop undef ; # g
154 no warnings 'uninitialized' ;
155 $x = chop undef ; # g
156 EXPECT
157 Modification of a read-only value attempted at - line 3.
158 ########
159 # sv.c
160 use warnings 'uninitialized' ;
161 $x = chop $y ; # h
162 no warnings 'uninitialized' ;
163 $x = chop $z ; # h
164 EXPECT
165 Use of uninitialized value in scalar chop at - line 3.
166 ########
167 # sv.c (sv_2pv)
168 package fred ;
169 sub TIESCALAR { my $x ; bless \$x}
170 sub FETCH { return undef }
171 sub STORE { return 1 }
172 package main ;
173 tie $A, 'fred' ;
174 use warnings 'uninitialized' ;
175 $B = "" ;
176 $B .= $A ;
177 no warnings 'uninitialized' ;
178 $C = "" ;
179 $C .= $A ;
180 EXPECT
181 Use of uninitialized value in concatenation (.) or string at - line 10.
182 ########
183 # sv.c 
184 use warnings 'numeric' ;
185 sub TIESCALAR{bless[]} ; 
186 sub FETCH {"def"} ; 
187 tie $a,"main" ; 
188 my $b = 1 + $a;
189 no warnings 'numeric' ;
190 my $c = 1 + $a;
191 EXPECT
192 Argument "def" isn't numeric in addition (+) at - line 6.
193 ########
194 # sv.c
195 use warnings 'numeric' ;
196 my $x = 1 + "def" ;
197 no warnings 'numeric' ;
198 my $z = 1 + "def" ;
199 EXPECT
200 Argument "def" isn't numeric in addition (+) at - line 3.
201 ########
202 # sv.c
203 use warnings 'numeric' ;
204 my $a = "def" ;
205 my $x = 1 + $a ;
206 no warnings 'numeric' ;
207 my $y = 1 + $a ;
208 EXPECT
209 Argument "def" isn't numeric in addition (+) at - line 4.
210 ########
211 # sv.c
212 use warnings 'numeric' ; use integer ;
213 my $a = "def" ;
214 my $x = 1 + $a ;
215 no warnings 'numeric' ;
216 my $z = 1 + $a ;
217 EXPECT
218 Argument "def" isn't numeric in integer addition (+) at - line 4.
219 ########
220 # sv.c
221 use warnings 'numeric' ;
222 my $x = 1 & "def" ;
223 no warnings 'numeric' ;
224 my $z = 1 & "def" ;
225 EXPECT
226 Argument "def" isn't numeric in bitwise and (&) at - line 3.
227 ########
228 # sv.c
229 use warnings 'numeric' ;
230 my $x = pack i => "def" ;
231 no warnings 'numeric' ;
232 my $z = pack i => "def" ;
233 EXPECT
234 Argument "def" isn't numeric in pack at - line 3.
235 ########
236 # sv.c
237 use warnings 'numeric' ; 
238 my $a = "d\0f" ;
239 my $x = 1 + $a ;
240 no warnings 'numeric' ;
241 my $z = 1 + $a ;
242 EXPECT
243 Argument "d\0f" isn't numeric in addition (+) at - line 4.
244 ########
245 # sv.c
246 use warnings 'redefine' ;
247 sub fred {}  
248 sub joe {} 
249 *fred = \&joe ;
250 no warnings 'redefine' ;
251 sub jim {} 
252 *jim = \&joe ;
253 EXPECT
254 Subroutine fred redefined at - line 5.
255 ########
256 # sv.c
257 use warnings 'printf' ;
258 open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
259 printf F "%z\n" ;
260 my $a = sprintf "%z" ;
261 printf F "%" ;
262 $a = sprintf "%" ;
263 printf F "%\x02" ;
264 $a = sprintf "%\x02" ;
265 no warnings 'printf' ;
266 printf F "%z\n" ;
267 $a = sprintf "%z" ;
268 printf F "%" ;
269 $a = sprintf "%" ;
270 printf F "%\x02" ;
271 $a = sprintf "%\x02" ;
272 EXPECT
273 Invalid conversion in sprintf: "%z" at - line 5.
274 Invalid conversion in sprintf: end of string at - line 7.
275 Invalid conversion in sprintf: "%\002" at - line 9.
276 Invalid conversion in printf: "%z" at - line 4.
277 Invalid conversion in printf: end of string at - line 6.
278 Invalid conversion in printf: "%\002" at - line 8.
279 ########
280 # sv.c
281 use warnings 'misc' ;
282 *a = undef ;
283 no warnings 'misc' ;
284 *b = undef ;
285 EXPECT
286 Undefined value assigned to typeglob at - line 3.
287 ########
288 # sv.c
289 use warnings 'y2k';
290 use Config;
291 BEGIN {
292     unless ($Config{ccflags} =~ /Y2KWARN/) {
293         print "SKIPPED\n# perl not built with -DPERL_Y2KWARN";
294         exit 0;
295     }
296     $|=1;
297 }
298 my $x;
299 my $yy = 78;
300 $x     = printf  "19%02d\n", $yy;
301 $x     = sprintf "#19%02d\n", $yy;
302 $x     = printf  " 19%02d\n", 78;
303 $x     = sprintf "19%02d\n", 78;
304 $x     = printf  "319%02d\n", $yy;
305 $x     = sprintf "319%02d\n", $yy;
306 no warnings 'y2k';
307 $x     = printf  "19%02d\n", $yy;
308 $x     = sprintf "19%02d\n", $yy;
309 $x     = printf  "19%02d\n", 78;
310 $x     = sprintf "19%02d\n", 78;
311 EXPECT
312 Possible Y2K bug: %d format string following '19' at - line 16.
313 Possible Y2K bug: %d format string following '19' at - line 13.
314 1978
315 Possible Y2K bug: %d format string following '19' at - line 14.
316 Possible Y2K bug: %d format string following '19' at - line 15.
317  1978
318 31978
319 1978
320 1978