Make it possible to disable and control hash key traversal randomization
[perl.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      $# is no longer supported
12      $* is no longer supported
13
14         $a = ${"#"} ;
15         $a = ${"*"} ;
16
17   Mandatory Warnings ALL TODO
18   ------------------
19
20     Had to create %SVf unexpectedly             [gv_fetchpv]
21     Attempt to free unreferenced glob pointers  [gp_free]
22     
23 __END__
24 # gv.c
25 use warnings 'syntax' ;
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 'syntax' ;
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 utf8;
47 use open qw( :utf8 :std );
48 sub Oᕞʀ::AUTOLOAD { 1 } sub Oᕞʀ::fᕃƌ {}
49 @ISA = qw(Oᕞʀ) ;
50 use warnings 'deprecated' ;
51 fᕃƌ() ;
52 EXPECT
53 Use of inherited AUTOLOAD for non-method main::fᕃƌ() is deprecated at - line 7.
54 ########
55 # gv.c
56 $a = ${"#"};
57 $a = ${"*"};
58 no warnings 'deprecated' ;
59 $a = ${"#"};
60 $a = ${"*"};
61 EXPECT
62 $# is no longer supported at - line 2.
63 $* is no longer supported at - line 3.
64 ########
65 # gv.c
66 $a = ${#};
67 $a = ${*};
68 no warnings 'deprecated' ;
69 $a = ${#};
70 $a = ${*};
71 EXPECT
72 $# is no longer supported at - line 2.
73 $* is no longer supported at - line 3.
74 ########
75 # gv.c
76 $a = $#;
77 $a = $*;
78 $# = $a;
79 $* = $a;
80 $a = \$#;
81 $a = \$*;
82 no warnings 'deprecated' ;
83 $a = $#;
84 $a = $*;
85 $# = $a;
86 $* = $a;
87 $a = \$#;
88 $a = \$*;
89 EXPECT
90 $# is no longer supported at - line 2.
91 $* is no longer supported at - line 3.
92 $# is no longer supported at - line 4.
93 $* is no longer supported at - line 5.
94 $# is no longer supported at - line 6.
95 $* is no longer supported at - line 7.
96 ########
97 # gv.c
98 @a = @#;
99 @a = @*;
100 $a = $#;
101 $a = $*;
102 EXPECT
103 $# is no longer supported at - line 4.
104 $* is no longer supported at - line 5.
105 ########
106 # gv.c
107 $a = $#;
108 $a = $*;
109 @a = @#;
110 @a = @*;
111 EXPECT
112 $# is no longer supported at - line 2.
113 $* is no longer supported at - line 3.
114 ########
115 # gv.c
116 use warnings 'syntax' ;
117 use utf8;
118 use open qw( :utf8 :std );
119 package Y;
120 @ISA = qw(Fred); joe()
121 EXPECT
122 Can't locate package Fred for @Y::ISA at - line 6.
123 Undefined subroutine &Y::joe called at - line 6.