Partial fix for bug 192513 (processmail cleanup). Patch fixes test files

to disregard processmail since it no longer exists (it was special-cased
before).

r=dave, a=dave

diff --git a/t/002goodperl.t b/t/002goodperl.t
index 0ac921c1fb88c937818f7556873d15f282975930..f6f14adb56606f7d84eac38f9763e943767a8d37 100644 (file)
--- 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 b82ab6d666237ff3b1d87d61489d0ddb53c88d27..108f6541a89a4aa359bcb9f18d4c19cc8c3354b6 100644 (file)
--- 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'],
 );