Allow compile tests for files that run in taint mode

No review needed for tests at this time. NOT PART OF BUILD

diff --git a/t/001compile.t b/t/001compile.t
index fa8bbae0644f21450e54a3b45b69f3d7b40b50dc..edaa9cacdd23ba20a73145bdfe673bf25ef1ff32 100644 (file)
--- a/t/001compile.t
+++ b/t/001compile.t
@@ -53,7 +53,14 @@ $perlapp=$^X;
 foreach $file (@testitems) {
         $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
         next if (!$file); # skip null entries
-       $command = "$perlapp"." -c $file 2>&1";
+        open (FILE,$file);
+        my $bang = <FILE>;
+        close (FILE);
+        my $T = "";
+        if ($bang =~ m/#!\S*perl\s+-.*T/) {
+            $T = "T";
+        }
+       $command = "$perlapp"." -c$T $file 2>&1";
        $loginfo=`$command`;
 #        print '@@'.$loginfo.'##';
        if ($loginfo =~ /syntax ok$/im) {

diff --git a/t/Support/Files.pm b/t/Support/Files.pm
index c31cd75c40f1b4f7f141ddeede3f1c271933a8e5..9235b5c70a1e04ec916ec6b236841a00d471322f 100644 (file)
--- a/t/Support/Files.pm
+++ b/t/Support/Files.pm
@@ -33,8 +33,8 @@
 
 package Support::Files;
 
-@additional_files = ('syncshadowdb');
-@exclude_files    = ('processmail','importxml.pl');
+@additional_files = ('syncshadowdb','processmail');
+@exclude_files    = ('importxml.pl');
 
 $file = '*';
 @files = glob($file);