diff options
| -rw-r--r-- | t/002goodperl.t | 7 | ||||
| -rw-r--r-- | t/Support/Files.pm | 2 |
2 files changed, 3 insertions, 6 deletions
diff --git a/t/002goodperl.t b/t/002goodperl.t index 0ac921c1f..f6f14adb5 100644 --- a/t/002goodperl.t +++ b/t/002goodperl.t @@ -52,11 +52,8 @@ foreach my $file (@testitems) { ok(1,"$file does not have a shebang"); } else { my $flags; - if ($file eq "processmail") { - # special case processmail, which is tainted checked - $flags = "wT"; - } elsif (!defined $ext || $ext eq "pl") { - # standalone programs (eg syncshadowdb) aren't taint checked yet + if (!defined $ext || $ext eq "pl") { + # standalone programs aren't taint checked yet $flags = "w"; } elsif ($ext eq "pm") { ok(0, "$file is a module, but has a shebang"); diff --git a/t/Support/Files.pm b/t/Support/Files.pm index b82ab6d66..108f6541a 100644 --- a/t/Support/Files.pm +++ b/t/Support/Files.pm @@ -26,7 +26,7 @@ package Support::Files; # exclude_deps is a hash of arrays listing the files to be excluded # if a module is not available # -@additional_files = ('syncshadowdb','processmail'); +@additional_files = (); %exclude_deps = ( 'XML::Parser' => ['importxml.pl'], ); |