Commit | Line | Data |
599cee73 |
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 | |
11 | Use of $# is deprecated |
12 | Use of $* is deprecated |
13 | |
14 | $a = ${"#"} ; |
15 | $a = ${"*"} ; |
16 | |
17 | |
18 | __END__ |
19 | # gv.c |
20 | use warning 'misc' ; |
21 | @ISA = qw(Fred); joe() |
22 | EXPECT |
23 | Can't locate package Fred for @main::ISA at - line 3. |
24 | Undefined subroutine &main::joe called at - line 3. |
25 | ######## |
26 | # gv.c |
27 | sub Other::AUTOLOAD { 1 } sub Other::fred {} |
28 | @ISA = qw(Other) ; |
29 | use warning 'deprecated' ; |
30 | fred() ; |
31 | EXPECT |
32 | Use of inherited AUTOLOAD for non-method main::fred() is deprecated at - line 5. |
33 | ######## |
34 | # gv.c |
35 | use warning 'deprecated' ; |
36 | $a = ${"#"}; |
37 | $a = ${"*"}; |
38 | EXPECT |
39 | Use of $# is deprecated at - line 3. |
40 | Use of $* is deprecated at - line 4. |