| Subject: | make test fails on Perl 5.18 due to for my $foo qw(...) {} no longer being allowed |
Simple fix:
diff --git a/test.pl b/test.pl
index 718f8e7..c9b5cb5 100644
--- a/test.pl
+++ b/test.pl
@@ -24,7 +24,7 @@ ok($clp->isa($class), "imported constructor correct");
ok($sub->can("to_file"), "save to file supported");
ok($sub->can("from_file"), "load from file supported");
my $tdata = "test_data/";
-foreach my $action qw(INTERSECT UNION DIFFERENCE) {
+foreach my $action (qw(INTERSECT UNION DIFFERENCE)) {
my $c;
my $res, $sub, $clp;
ok($c = $sub->from_file($tdata . "subjfile", 1), "read subject ($c)");