summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Devel/DProf/test8_t
blob: 6154c8a53078be6d811f51ca020d4b4d9ebebc44 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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;