--- trunk/t/conf/normalize/sub.pl	2009/07/28 23:24:54	1264
+++ trunk/t/conf/normalize/sub.pl	2009/08/09 20:10:21	1265
@@ -1,3 +1,5 @@
+# check all repairs in WebPAC::Parser
+
 sub foo {
 	push @test, 'foo';
 }
@@ -9,3 +11,11 @@
 foo();
 bar(foo());
 bar(42);
+
+sub test($) {
+	push @test, $_[0];
+}
+
+foreach my $a ( 1,2,3 ) {
+	test($a);	
+}