fix foreach my combination

[webpac2] / t / conf / normalize / sub.pl

diff --git a/t/conf/normalize/sub.pl b/t/conf/normalize/sub.pl
index c810355..62dec98 100644 (file)
--- a/t/conf/normalize/sub.pl
+++ b/t/conf/normalize/sub.pl
@@ -1,3 +1,5 @@
+# check all repairs in WebPAC::Parser
+
 sub foo {
        push @test, 'foo';
 }
@@ -9,3 +11,11 @@ sub bar($) {
 foo();
 bar(foo());
 bar(42);
+
+sub test($) {
+       push @test, $_[0];
+}
+
+foreach my $a ( 1,2,3 ) {
+       test($a);       
+}