lib/perl5db/t/disable-breakpoints-2


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#!/usr/bin/perl
my $x = "One";

$x = "FirstVal";

set_x();

$x = "SecondVal";

set_x();

$x = "ThirdVal";

set_x();

$x = "FourthVal";

set_x();

sub set_x
{
    $x .= "OneHundred";

    my $t = $x;
    $t .= "Foo";
}