Commit | Line | Data |
---|---|---|
583a019e | 1 | # Test that dprof doesn't break |
2 | # &bar; used as &bar(@_); | |
3 | ||
4 | sub foo1 { | |
5 | print "in foo1(@_)\n"; | |
6 | bar(@_); | |
7 | } | |
8 | sub foo2 { | |
9 | print "in foo2(@_)\n"; | |
10 | &bar; | |
11 | } | |
12 | sub bar { | |
13 | print "in bar(@_)\n"; | |
14 | if( @_ > 0 ){ | |
15 | &yeppers; | |
16 | } | |
17 | } | |
18 | sub yeppers { | |
19 | print "rest easy\n"; | |
20 | } | |
21 | ||
22 | ||
23 | &foo1( A ); | |
24 | &foo2( B ); | |
25 |