summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorjake%acutex.net <>2001-10-07 08:22:45 +0200
committerjake%acutex.net <>2001-10-07 08:22:45 +0200
commit15b28b225f4919d8362228929a7dd584e7723dfa (patch)
tree642bb7c45cd2d7b4785edb6aa8fa88b0873b572f /t
parent934948d1e59b99f23083e73c17344806cd25084b (diff)
downloadbugzilla-15b28b225f4919d8362228929a7dd584e7723dfa.tar.gz
bugzilla-15b28b225f4919d8362228929a7dd584e7723dfa.tar.xz
Allow compile tests for files that run in taint mode
No review needed for tests at this time. NOT PART OF BUILD
Diffstat (limited to 't')
-rw-r--r--t/001compile.t9
-rw-r--r--t/Support/Files.pm4
2 files changed, 10 insertions, 3 deletions
diff --git a/t/001compile.t b/t/001compile.t
index fa8bbae06..edaa9cacd 100644
--- 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 c31cd75c4..9235b5c70 100644
--- 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);