xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/warnings/perly (revision 0:68f95e015346) 
1  perly.y	AOK
2
3  dep() => deprecate("\"do\" to call subroutines")
4  Use of "do" to call subroutines is deprecated
5
6	sub fred {} do fred()
7	sub fred {} do fred(1)
8	sub fred {} $a = "fred" ; do $a()
9	sub fred {} $a = "fred" ; do $a(1)
10
11
12__END__
13# perly.y
14use warnings 'deprecated' ;
15sub fred {}
16do fred() ;
17do fred(1) ;
18$a = "fred" ;
19do $a() ;
20do $a(1) ;
21no warnings 'deprecated' ;
22do fred() ;
23do fred(1) ;
24$a = "fred" ;
25do $a() ;
26do $a(1) ;
27EXPECT
28Use of "do" to call subroutines is deprecated at - line 4.
29Use of "do" to call subroutines is deprecated at - line 5.
30Use of "do" to call subroutines is deprecated at - line 7.
31Use of "do" to call subroutines is deprecated at - line 8.
32