[p5sagit/p5-mst-13.2.git] / t / lib / dprof / test8_t

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;
Commit	Line	Data
7619c85e	1	sub foo {
	2	print "in sub foo\n";
	3	}
	4
19bcb543	5	sub bar {
	6	print "in sub bar\n";
	7	$^P -= 0x40;
	8	}
	9
7619c85e	10	foo();
	11	$^P -= 0x40;
	12	foo();
19bcb543	13	$^P += 0x40;
	14	bar();
	15	$^P += 0x40;