lib/perl5db/t/disable-breakpoints-2

   1 #!/usr/bin/perl
   2 my $x = "One";
   3
   4 $x = "FirstVal";
   5
   6 set_x();
   7
   8 $x = "SecondVal";
   9
  10 set_x();
  11
  12 $x = "ThirdVal";
  13
  14 set_x();
  15
  16 $x = "FourthVal";
  17
  18 set_x();
  19
  20 sub set_x
  21 {
  22     $x .= "OneHundred";
  23
  24     my $t = $x;
  25     $t .= "Foo";
  26 }