xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/dprof/test8_t (revision 0:68f95e015346)

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

sub bar {
	print "in sub bar\n";
	$^P -= 0x40;
}

foo();
$^P -= 0x40;
foo();
$^P += 0x40;
bar();
$^P += 0x40;