conf/normalize/sub.pl

# check all repairs in WebPAC::Parser

sub foo {
        push @test, 'foo';
}

sub bar($) {
        push @test, "bar >>" . shift(@_) . "<<";
}

foo();
bar(foo());
bar(42);

sub test($) {
        push @test, $_[0];
}

foreach my $a ( 1,2,3 ) {
        test($a) if length($a) > 0;
}
1	dpavlin	1265	# check all repairs in WebPAC::Parser
2
3	dpavlin	1061	sub foo {
4			push @test, 'foo';
5			}
6
7			sub bar($) {
8			push @test, "bar >>" . shift(@_) . "<<";
9			}
10
11			foo();
12			bar(foo());
13			bar(42);
14	dpavlin	1265
15			sub test($) {
16			push @test, $_[0];
17			}
18
19			foreach my $a ( 1,2,3 ) {
20	dpavlin	1277	test($a) if length($a) > 0;
21	dpavlin	1265	}