Commit | Line | Data |
---|---|---|
599cee73 PM |
1 | gv.c AOK |
2 | ||
3 | Can't locate package %s for @%s::ISA | |
4 | @ISA = qw(Fred); joe() | |
5 | ||
6 | Use of inherited AUTOLOAD for non-method %s::%.*s() is deprecated | |
7 | sub Other::AUTOLOAD { 1 } sub Other::fred {} | |
8 | @ISA = qw(Other) ; | |
9 | fred() ; | |
10 | ||
8ae1fe26 | 11 | $# is no longer supported |
9b332a20 | 12 | $* is no longer supported |
599cee73 PM |
13 | |
14 | $a = ${"#"} ; | |
15 | $a = ${"*"} ; | |
16 | ||
a15a3d9b FC |
17 | ${^ENCODING} is no longer supported. |
18 | ||
e5e43984 FC |
19 | Name "main::a" used only once: possible typo |
20 | ||
0453d815 PM |
21 | Mandatory Warnings ALL TODO |
22 | ------------------ | |
599cee73 | 23 | |
34ee6772 | 24 | Had to create %SVf unexpectedly [gv_fetchpv] |
0453d815 PM |
25 | Attempt to free unreferenced glob pointers [gp_free] |
26 | ||
599cee73 PM |
27 | __END__ |
28 | # gv.c | |
f40a7154 | 29 | use warnings 'syntax' ; |
599cee73 PM |
30 | @ISA = qw(Fred); joe() |
31 | EXPECT | |
32 | Can't locate package Fred for @main::ISA at - line 3. | |
33 | Undefined subroutine &main::joe called at - line 3. | |
34 | ######## | |
35 | # gv.c | |
f40a7154 | 36 | no warnings 'syntax' ; |
0453d815 PM |
37 | @ISA = qw(Fred); joe() |
38 | EXPECT | |
39 | Undefined subroutine &main::joe called at - line 3. | |
40 | ######## | |
41 | # gv.c | |
599cee73 PM |
42 | sub Other::AUTOLOAD { 1 } sub Other::fred {} |
43 | @ISA = qw(Other) ; | |
4438c4b7 | 44 | use warnings 'deprecated' ; |
599cee73 | 45 | fred() ; |
9493dad1 RD |
46 | my $x = \&barney; |
47 | (bless[])->barney; | |
599cee73 | 48 | EXPECT |
d9d53e86 | 49 | Use of inherited AUTOLOAD for non-method main::fred() is deprecated. This will be fatal in Perl 5.28 at - line 5. |
599cee73 PM |
50 | ######## |
51 | # gv.c | |
34ee6772 BF |
52 | use utf8; |
53 | use open qw( :utf8 :std ); | |
54 | sub Oᕞʀ::AUTOLOAD { 1 } sub Oᕞʀ::fᕃƌ {} | |
55 | @ISA = qw(Oᕞʀ) ; | |
56 | use warnings 'deprecated' ; | |
57 | fᕃƌ() ; | |
58 | EXPECT | |
d9d53e86 | 59 | Use of inherited AUTOLOAD for non-method main::fᕃƌ() is deprecated. This will be fatal in Perl 5.28 at - line 7. |
34ee6772 BF |
60 | ######## |
61 | # gv.c | |
a678626e A |
62 | $a = ${"#"}; |
63 | $a = ${"*"}; | |
64 | no warnings 'deprecated' ; | |
65 | $a = ${"#"}; | |
66 | $a = ${"*"}; | |
67 | EXPECT | |
37398dc1 A |
68 | $# is no longer supported. Its use will be fatal in Perl 5.30 at - line 2. |
69 | $* is no longer supported. Its use will be fatal in Perl 5.30 at - line 3. | |
a678626e A |
70 | ######## |
71 | # gv.c | |
72 | $a = ${#}; | |
73 | $a = ${*}; | |
74 | no warnings 'deprecated' ; | |
75 | $a = ${#}; | |
76 | $a = ${*}; | |
77 | EXPECT | |
37398dc1 A |
78 | $# is no longer supported. Its use will be fatal in Perl 5.30 at - line 2. |
79 | $* is no longer supported. Its use will be fatal in Perl 5.30 at - line 3. | |
a678626e A |
80 | ######## |
81 | # gv.c | |
82 | $a = $#; | |
83 | $a = $*; | |
84 | $# = $a; | |
85 | $* = $a; | |
86 | $a = \$#; | |
87 | $a = \$*; | |
88 | no warnings 'deprecated' ; | |
89 | $a = $#; | |
90 | $a = $*; | |
91 | $# = $a; | |
92 | $* = $a; | |
93 | $a = \$#; | |
94 | $a = \$*; | |
95 | EXPECT | |
37398dc1 A |
96 | $# is no longer supported. Its use will be fatal in Perl 5.30 at - line 2. |
97 | $* is no longer supported. Its use will be fatal in Perl 5.30 at - line 3. | |
98 | $# is no longer supported. Its use will be fatal in Perl 5.30 at - line 4. | |
99 | $* is no longer supported. Its use will be fatal in Perl 5.30 at - line 5. | |
100 | $# is no longer supported. Its use will be fatal in Perl 5.30 at - line 6. | |
101 | $* is no longer supported. Its use will be fatal in Perl 5.30 at - line 7. | |
a678626e A |
102 | ######## |
103 | # gv.c | |
104 | @a = @#; | |
105 | @a = @*; | |
106 | $a = $#; | |
107 | $a = $*; | |
108 | EXPECT | |
37398dc1 A |
109 | $# is no longer supported. Its use will be fatal in Perl 5.30 at - line 4. |
110 | $* is no longer supported. Its use will be fatal in Perl 5.30 at - line 5. | |
a678626e A |
111 | ######## |
112 | # gv.c | |
113 | $a = $#; | |
114 | $a = $*; | |
115 | @a = @#; | |
116 | @a = @*; | |
117 | EXPECT | |
37398dc1 A |
118 | $# is no longer supported. Its use will be fatal in Perl 5.30 at - line 2. |
119 | $* is no longer supported. Its use will be fatal in Perl 5.30 at - line 3. | |
a678626e A |
120 | ######## |
121 | # gv.c | |
a15a3d9b FC |
122 | $a = ${^ENCODING}; |
123 | $a = ${^E_NCODING}; | |
124 | ${^ENCODING} = 1; | |
125 | ${^E_NCODING} = 1; # We pretend this variable never existed. | |
126 | EXPECT | |
ac641426 | 127 | ${^ENCODING} is no longer supported. Its use will be fatal in Perl 5.28 at - line 4. |
a15a3d9b FC |
128 | ######## |
129 | # gv.c | |
34ee6772 BF |
130 | use warnings 'syntax' ; |
131 | use utf8; | |
132 | use open qw( :utf8 :std ); | |
133 | package Y; | |
134 | @ISA = qw(Fred); joe() | |
135 | EXPECT | |
136 | Can't locate package Fred for @Y::ISA at - line 6. | |
137 | Undefined subroutine &Y::joe called at - line 6. | |
e5e43984 FC |
138 | ######## |
139 | # gv.c | |
140 | use warnings; | |
141 | $x = 1; | |
142 | if ($x) { | |
143 | print $y; | |
144 | } | |
ea238638 FC |
145 | $a++; # These two should |
146 | $b++; # be exempt. | |
147 | $Foo::a++; | |
148 | $Foo::b++; | |
e5e43984 FC |
149 | EXPECT |
150 | Name "main::y" used only once: possible typo at - line 5. | |
151 | Use of uninitialized value $y in print at - line 5. | |
152 | ######## | |
153 | # gv.c | |
154 | use warnings; | |
155 | $x = 1; | |
156 | if ($x) { | |
157 | $x++; | |
158 | print $y; | |
159 | } | |
160 | EXPECT | |
161 | Name "main::y" used only once: possible typo at - line 6. | |
162 | Use of uninitialized value $y in print at - line 6. | |
163 | ######## | |
164 | # gv.c | |
165 | use warnings; | |
166 | $x = 0; | |
167 | if ($x) { | |
168 | print "1\n"; | |
169 | } elsif (!$x) { | |
170 | print $y; | |
171 | } else { | |
172 | print "0\n"; | |
173 | } | |
174 | EXPECT | |
175 | Name "main::y" used only once: possible typo at - line 7. | |
176 | Use of uninitialized value $y in print at - line 7. | |
177 | ######## | |
178 | # gv.c | |
179 | use warnings; | |
180 | $x = 0; | |
181 | if ($x) { | |
182 | print "1\n"; | |
183 | } elsif (!$x) { | |
184 | $x++; | |
185 | print $y; | |
186 | } else { | |
187 | print "0\n"; | |
188 | } | |
189 | EXPECT | |
190 | Name "main::y" used only once: possible typo at - line 8. | |
191 | Use of uninitialized value $y in print at - line 8. | |
192 | ######## | |
193 | # gv.c | |
194 | use utf8; | |
195 | use open qw( :utf8 :std ); | |
196 | use warnings; | |
197 | $ㄒ = 1; | |
198 | if ($ㄒ) { | |
199 | print $ʎ; | |
200 | } | |
201 | EXPECT | |
202 | Name "main::ʎ" used only once: possible typo at - line 7. | |
203 | Use of uninitialized value $ʎ in print at - line 7. | |
204 | ######## | |
205 | # gv.c | |
206 | use utf8; | |
207 | use open qw( :utf8 :std ); | |
208 | use warnings; | |
209 | $ㄒ = 1; | |
210 | if ($ㄒ) { | |
211 | $ㄒ++; | |
212 | print $ʎ; | |
213 | } | |
214 | EXPECT | |
215 | Name "main::ʎ" used only once: possible typo at - line 8. | |
216 | Use of uninitialized value $ʎ in print at - line 8. | |
217 | ######## | |
218 | # gv.c | |
219 | use utf8; | |
220 | use open qw( :utf8 :std ); | |
221 | use warnings; | |
222 | $ㄒ = 0; | |
223 | if ($ㄒ) { | |
224 | print "1\n"; | |
225 | } elsif (!$ㄒ) { | |
226 | print $ʎ; | |
227 | } else { | |
228 | print "0\n"; | |
229 | } | |
230 | EXPECT | |
231 | Name "main::ʎ" used only once: possible typo at - line 9. | |
232 | Use of uninitialized value $ʎ in print at - line 9. | |
233 | ######## | |
234 | # gv.c | |
235 | use utf8; | |
236 | use open qw( :utf8 :std ); | |
237 | use warnings; | |
238 | $ㄒ = 0; | |
239 | if ($ㄒ) { | |
240 | print "1\n"; | |
241 | } elsif (!$ㄒ) { | |
242 | $ㄒ++; | |
243 | print $ʎ; | |
244 | } else { | |
245 | print "0\n"; | |
246 | } | |
247 | EXPECT | |
248 | Name "main::ʎ" used only once: possible typo at - line 10. | |
249 | Use of uninitialized value $ʎ in print at - line 10. | |
250 | ######## | |
251 | # gv.c | |
252 | use utf8; | |
253 | use open qw( :utf8 :std ); | |
254 | use warnings; | |
255 | package 팣칵ぇ; | |
256 | $ㄒ = 1; | |
257 | if ($ㄒ) { | |
258 | print $ʎ; | |
259 | } | |
260 | EXPECT | |
261 | Name "팣칵ぇ::ʎ" used only once: possible typo at - line 8. | |
262 | Use of uninitialized value $팣칵ぇ::ʎ in print at - line 8. | |
263 | ######## | |
264 | # gv.c | |
265 | use utf8; | |
266 | use open qw( :utf8 :std ); | |
267 | use warnings; | |
268 | package 팣칵ぇ; | |
269 | $ㄒ = 1; | |
270 | if ($ㄒ) { | |
271 | $ㄒ++; | |
272 | print $ʎ; | |
273 | } | |
274 | EXPECT | |
275 | Name "팣칵ぇ::ʎ" used only once: possible typo at - line 9. | |
276 | Use of uninitialized value $팣칵ぇ::ʎ in print at - line 9. | |
277 | ######## | |
278 | # gv.c | |
279 | use utf8; | |
280 | use open qw( :utf8 :std ); | |
281 | use warnings; | |
282 | package 팣칵ぇ; | |
283 | $ㄒ = 0; | |
284 | if ($ㄒ) { | |
285 | print "1\n"; | |
286 | } elsif (!$ㄒ) { | |
287 | print $ʎ; | |
288 | } else { | |
289 | print "0\n"; | |
290 | } | |
291 | EXPECT | |
292 | Name "팣칵ぇ::ʎ" used only once: possible typo at - line 10. | |
293 | Use of uninitialized value $팣칵ぇ::ʎ in print at - line 10. | |
294 | ######## | |
295 | # gv.c | |
296 | use utf8; | |
297 | use open qw( :utf8 :std ); | |
298 | use warnings; | |
299 | package 팣칵ぇ; | |
300 | $ㄒ = 0; | |
301 | if ($ㄒ) { | |
302 | print "1\n"; | |
303 | } elsif (!$ㄒ) { | |
304 | $ㄒ++; | |
305 | print $ʎ; | |
306 | } else { | |
307 | print "0\n"; | |
308 | } | |
309 | EXPECT | |
310 | Name "팣칵ぇ::ʎ" used only once: possible typo at - line 11. | |
311 | Use of uninitialized value $팣칵ぇ::ʎ in print at - line 11. |