[perl5.git] / lib / perl5db / t / test-l-statement-1

$x = 1;
print "1\n";

$x = 2;
print "2\n";

$x = 3;
print "3\n";

$x = 4;
print "4\n";

$x = 5;
print "5\n";

$x = 6;
print "6\n";

$x = 7;
print "7\n";
Commit	Line	Data
55783941 SF	1	$x = 1;
	2	print "1\n";
	3
	4	$x = 2;
	5	print "2\n";
	6
	7	$x = 3;
	8	print "3\n";
2c247e84 SF	9
	10	$x = 4;
	11	print "4\n";
	12
	13	$x = 5;
	14	print "5\n";
	15
	16	$x = 6;
	17	print "6\n";
	18
	19	$x = 7;
	20	print "7\n";