source:
trunk/essentials/dev-lang/perl/t/lib/dprof/test5_t
| Last change on this file was 3181, checked in by , 19 years ago | |
|---|---|
| File size: 284 bytes | |
| Line | |
|---|---|
| 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 |
Note:
See TracBrowser
for help on using the repository browser.
