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);       
}
1	# check all repairs in WebPAC::Parser
2
3	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
15	sub test($) {
16	push @test, $_[0];
17	}
18
19	foreach my $a ( 1,2,3 ) {
20	test($a);
21	}