xref: /openbsd-src/gnu/usr.bin/perl/t/lib/warnings/gv (revision 898184e3e61f9129feb5978fad5a8c6865f00b92)
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
25use warnings 'syntax' ;
26@ISA = qw(Fred); joe()
27EXPECT
28Can't locate package Fred for @main::ISA at - line 3.
29Undefined subroutine &main::joe called at - line 3.
30########
31# gv.c
32no warnings 'syntax' ;
33@ISA = qw(Fred); joe()
34EXPECT
35Undefined subroutine &main::joe called at - line 3.
36########
37# gv.c
38sub Other::AUTOLOAD { 1 } sub Other::fred {}
39@ISA = qw(Other) ;
40use warnings 'deprecated' ;
41fred() ;
42EXPECT
43Use of inherited AUTOLOAD for non-method main::fred() is deprecated at - line 5.
44########
45# gv.c
46use utf8;
47use open qw( :utf8 :std );
48sub Oᕞʀ::AUTOLOAD { 1 } sub Oᕞʀ::fᕃƌ {}
49@ISA = qw(Oᕞʀ) ;
50use warnings 'deprecated' ;
51fᕃƌ() ;
52EXPECT
53Use of inherited AUTOLOAD for non-method main::fᕃƌ() is deprecated at - line 7.
54########
55# gv.c
56$a = ${"#"};
57$a = ${"*"};
58no warnings 'deprecated' ;
59$a = ${"#"};
60$a = ${"*"};
61EXPECT
62$# is no longer supported at - line 2.
63$* is no longer supported at - line 3.
64########
65# gv.c
66use warnings 'syntax' ;
67use utf8;
68use open qw( :utf8 :std );
69package Y;
70@ISA = qw(Fred); joe()
71EXPECT
72Can't locate package Fred for @Y::ISA at - line 6.
73Undefined subroutine &Y::joe called at - line 6.
74