test8_t revision 7c478bd95313f5f23a4c958a745db2134aa03244
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;