t/lib/dprof/test8_t

   1 sub foo {
   2         print "in sub foo\n";
   3 }
   4
   5 sub bar {
   6         print "in sub bar\n";
   7         $^P -= 0x40;
   8 }
   9
  10 foo();
  11 $^P -= 0x40;
  12 foo();
  13 $^P += 0x40;
  14 bar();
  15 $^P += 0x40;