diff options
| author | jake%acutex.net <> | 2001-10-07 06:22:45 +0000 |
|---|---|---|
| committer | jake%acutex.net <> | 2001-10-07 06:22:45 +0000 |
| commit | 15b28b225f4919d8362228929a7dd584e7723dfa (patch) | |
| tree | 642bb7c45cd2d7b4785edb6aa8fa88b0873b572f /t | |
| parent | 934948d1e59b99f23083e73c17344806cd25084b (diff) | |
| download | bugs-15b28b225f4919d8362228929a7dd584e7723dfa.tar bugs-15b28b225f4919d8362228929a7dd584e7723dfa.tar.gz bugs-15b28b225f4919d8362228929a7dd584e7723dfa.tar.bz2 bugs-15b28b225f4919d8362228929a7dd584e7723dfa.tar.xz bugs-15b28b225f4919d8362228929a7dd584e7723dfa.zip | |
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.t | 9 | ||||
| -rw-r--r-- | t/Support/Files.pm | 4 |
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); |