path: root/Master/tlpkg/tlperl/lib/Devel/DProf/test4_t

sub foo {
	print "in sub foo\n";
	bar();
}

sub bar {
	print "in sub bar\n";
}

sub baz {
	print "in sub baz\n";
	bar();
	bar();
	bar();
	foo();
}

bar();

eval { fork };

bar();
baz();
foo();