| 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 | $* is no longer supported |
| 13 | |
| 14 | $a = ${"#"} ; |
| 15 | $a = ${"*"} ; |
| 16 | |
| 17 | Mandatory Warnings ALL TODO |
| 18 | ------------------ |
| 19 | |
| 20 | Had to create %s unexpectedly [gv_fetchpv] |
| 21 | Attempt to free unreferenced glob pointers [gp_free] |
| 22 | |
| 23 | __END__ |
| 24 | # gv.c |
| 25 | use warnings 'misc' ; |
| 26 | @ISA = qw(Fred); joe() |
| 27 | EXPECT |
| 28 | Can't locate package Fred for @main::ISA at - line 3. |
| 29 | Undefined subroutine &main::joe called at - line 3. |
| 30 | ######## |
| 31 | # gv.c |
| 32 | no warnings 'misc' ; |
| 33 | @ISA = qw(Fred); joe() |
| 34 | EXPECT |
| 35 | Undefined subroutine &main::joe called at - line 3. |
| 36 | ######## |
| 37 | # gv.c |
| 38 | sub Other::AUTOLOAD { 1 } sub Other::fred {} |
| 39 | @ISA = qw(Other) ; |
| 40 | use warnings 'deprecated' ; |
| 41 | fred() ; |
| 42 | EXPECT |
| 43 | Use of inherited AUTOLOAD for non-method main::fred() is deprecated at - line 5. |
| 44 | ######## |
| 45 | # gv.c |
| 46 | use warnings 'deprecated' ; |
| 47 | $a = ${"#"}; |
| 48 | $a = ${"*"}; |
| 49 | no warnings 'deprecated' ; |
| 50 | $a = ${"#"}; |
| 51 | $a = ${"*"}; |
| 52 | EXPECT |
| 53 | Use of $# is deprecated at - line 3. |
| 54 | $* is no longer supported at - line 4. |