xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/disable-breakpoints-2 (revision 898184e3e61f9129feb5978fad5a8c6865f00b92) 
1#!/usr/bin/perl
2my $x = "One";
3
4$x = "FirstVal";
5
6set_x();
7
8$x = "SecondVal";
9
10set_x();
11
12$x = "ThirdVal";
13
14set_x();
15
16$x = "FourthVal";
17
18set_x();
19
20sub set_x
21{
22    $x .= "OneHundred";
23
24    my $t = $x;
25    $t .= "Foo";
26}
27