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

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

foo();
$^P -= 0x40;
foo();
Commit	Line	Data
7619c85e	1	sub foo {
	2	print "in sub foo\n";
	3	}
	4
	5	foo();
	6	$^P -= 0x40;
	7	foo();