This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Patch to JPL example program
[perl5.git] / t / pragma / warn / gv
CommitLineData
599cee73
PM
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
20use warning 'misc' ;
21@ISA = qw(Fred); joe()
22EXPECT
23Can't locate package Fred for @main::ISA at - line 3.
24Undefined subroutine &main::joe called at - line 3.
25########
26# gv.c
27sub Other::AUTOLOAD { 1 } sub Other::fred {}
28@ISA = qw(Other) ;
29use warning 'deprecated' ;
30fred() ;
31EXPECT
32Use of inherited AUTOLOAD for non-method main::fred() is deprecated at - line 5.
33########
34# gv.c
35use warning 'deprecated' ;
36$a = ${"#"};
37$a = ${"*"};
38EXPECT
39Use of $# is deprecated at - line 3.
40Use of $* is deprecated at - line 4.