xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/dprof/test5_t (revision 0:68f95e015346) 
1# Test that dprof doesn't break
2#    &bar;  used as &bar(@_);
3
4sub foo1 {
5	print "in foo1(@_)\n";
6	bar(@_);
7}
8sub foo2 {
9	print "in foo2(@_)\n";
10	&bar;
11}
12sub bar {
13	print "in bar(@_)\n";
14	if( @_ > 0 ){
15		&yeppers;
16	}
17}
18sub yeppers {
19	print "rest easy\n";
20}
21
22
23&foo1( A );
24&foo2( B );
25
26