blob: fd420d3b22c6da394a05d3bb87e3336425c3c065 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
perly.y AOK
dep() => deprecate("\"do\" to call subroutines")
Use of "do" to call subroutines is deprecated
sub fred {} do fred()
sub fred {} do fred(1)
sub fred {} $a = "fred" ; do $a()
sub fred {} $a = "fred" ; do $a(1)
__END__
# perly.y
use warning 'deprecated' ;
sub fred {}
do fred() ;
do fred(1) ;
$a = "fred" ;
do $a() ;
do $a(1) ;
EXPECT
Use of "do" to call subroutines is deprecated at - line 4.
Use of "do" to call subroutines is deprecated at - line 5.
Use of "do" to call subroutines is deprecated at - line 7.
Use of "do" to call subroutines is deprecated at - line 8.
|
