Commit | Line | Data |
599cee73 |
1 | sv.c AOK |
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 | |
36 | __END__ |
37 | # sv.c |
38 | use integer ; |
39 | use warning 'uninitialized' ; |
40 | $x = 1 + $a[0] ; # a |
41 | EXPECT |
42 | Use of uninitialized value at - line 4. |
43 | ######## |
44 | # sv.c (sv_2iv) |
45 | package fred ; |
46 | sub TIESCALAR { my $x ; bless \$x} |
47 | sub FETCH { return undef } |
48 | sub STORE { return 1 } |
49 | package main ; |
50 | tie $A, 'fred' ; |
51 | use integer ; |
52 | use warning 'uninitialized' ; |
53 | $A *= 2 ; |
54 | EXPECT |
55 | Use of uninitialized value at - line 10. |
56 | ######## |
57 | # sv.c |
58 | use integer ; |
59 | use warning 'uninitialized' ; |
60 | my $x *= 2 ; #b |
61 | EXPECT |
62 | Use of uninitialized value at - line 4. |
63 | ######## |
64 | # sv.c (sv_2uv) |
65 | package fred ; |
66 | sub TIESCALAR { my $x ; bless \$x} |
67 | sub FETCH { return undef } |
68 | sub STORE { return 1 } |
69 | package main ; |
70 | tie $A, 'fred' ; |
71 | use warning 'uninitialized' ; |
72 | $B = 0 ; |
73 | $B |= $A ; |
74 | EXPECT |
75 | Use of uninitialized value at - line 10. |
76 | ######## |
77 | # sv.c |
78 | use warning 'uninitialized' ; |
79 | my $Y = 1 ; |
80 | my $x = 1 | $a[$Y] |
81 | EXPECT |
82 | Use of uninitialized value at - line 4. |
83 | ######## |
84 | # sv.c |
85 | use warning 'uninitialized' ; |
86 | my $x *= 1 ; # d |
87 | EXPECT |
88 | Use of uninitialized value at - line 3. |
89 | ######## |
90 | # sv.c |
91 | use warning 'uninitialized' ; |
92 | $x = 1 + $a[0] ; # e |
93 | EXPECT |
94 | Use of uninitialized value at - line 3. |
95 | ######## |
96 | # sv.c (sv_2nv) |
97 | package fred ; |
98 | sub TIESCALAR { my $x ; bless \$x} |
99 | sub FETCH { return undef } |
100 | sub STORE { return 1 } |
101 | package main ; |
102 | tie $A, 'fred' ; |
103 | use warning 'uninitialized' ; |
104 | $A *= 2 ; |
105 | EXPECT |
106 | Use of uninitialized value at - line 9. |
107 | ######## |
108 | # sv.c |
109 | use warning 'uninitialized' ; |
110 | $x = $y + 1 ; # f |
111 | EXPECT |
112 | Use of uninitialized value at - line 3. |
113 | ######## |
114 | # sv.c |
115 | use warning 'uninitialized' ; |
116 | $x = chop undef ; # g |
117 | EXPECT |
b0c98cec |
118 | Modification of a read-only value attempted at - line 3. |
599cee73 |
119 | ######## |
120 | # sv.c |
121 | use warning 'uninitialized' ; |
122 | $x = chop $y ; # h |
123 | EXPECT |
124 | Use of uninitialized value at - line 3. |
125 | ######## |
126 | # sv.c (sv_2pv) |
127 | package fred ; |
128 | sub TIESCALAR { my $x ; bless \$x} |
129 | sub FETCH { return undef } |
130 | sub STORE { return 1 } |
131 | package main ; |
132 | tie $A, 'fred' ; |
133 | use warning 'uninitialized' ; |
134 | $B = "" ; |
135 | $B .= $A ; |
136 | EXPECT |
137 | Use of uninitialized value at - line 10. |
138 | ######## |
139 | # sv.c |
140 | use warning 'numeric' ; |
141 | sub TIESCALAR{bless[]} ; |
142 | sub FETCH {"def"} ; |
143 | tie $a,"main" ; |
144 | my $b = 1 + $a |
145 | EXPECT |
146 | Argument "def" isn't numeric in add at - line 6. |
147 | ######## |
148 | # sv.c |
149 | use warning 'numeric' ; |
150 | my $x = 1 + "def" ; |
151 | EXPECT |
152 | Argument "def" isn't numeric in add at - line 3. |
153 | ######## |
154 | # sv.c |
155 | use warning 'numeric' ; |
156 | my $a = "def" ; |
157 | my $x = 1 + $a ; |
158 | EXPECT |
159 | Argument "def" isn't numeric in add at - line 4. |
160 | ######## |
161 | # sv.c |
162 | use warning 'numeric' ; use integer ; |
163 | my $a = "def" ; |
164 | my $x = 1 + $a ; |
165 | EXPECT |
166 | Argument "def" isn't numeric in i_add at - line 4. |
167 | ######## |
168 | # sv.c |
169 | use warning 'numeric' ; |
170 | my $x = 1 & "def" ; |
171 | EXPECT |
172 | Argument "def" isn't numeric in bit_and at - line 3. |
173 | ######## |
174 | # sv.c |
175 | use warning 'redefine' ; |
176 | sub fred {} |
177 | sub joe {} |
178 | *fred = \&joe ; |
179 | EXPECT |
180 | Subroutine fred redefined at - line 5. |
181 | ######## |
182 | # sv.c |
183 | use warning 'printf' ; |
3eeba6fb |
184 | open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ; |
599cee73 |
185 | printf F "%q\n" ; |
186 | my $a = sprintf "%q" ; |
187 | printf F "%" ; |
188 | $a = sprintf "%" ; |
189 | printf F "%\x02" ; |
190 | $a = sprintf "%\x02" ; |
191 | EXPECT |
192 | Invalid conversion in sprintf: "%q" at - line 5. |
193 | Invalid conversion in sprintf: end of string at - line 7. |
194 | Invalid conversion in sprintf: "%\002" at - line 9. |
195 | Invalid conversion in printf: "%q" at - line 4. |
196 | Invalid conversion in printf: end of string at - line 6. |
197 | Invalid conversion in printf: "%\002" at - line 8. |
198 | ######## |
199 | # sv.c |
200 | use warning 'unsafe' ; |
201 | *a = undef ; |
202 | EXPECT |
203 | Undefined value assigned to typeglob at - line 3. |