Parent Directory | Revision Log
fix foreach my combination
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 | test($a); | ||
21 | } |
ViewVC Help | |
Powered by ViewVC 1.1.26 |