Split off the pack/unpack code, from Nicholas Clark.
[p5sagit/p5-mst-13.2.git] / t / lib / warnings / gv
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   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 Use of $* is deprecated at - line 4.