diff options
| author | jake%acutex.net <> | 2001-10-07 08:22:45 +0200 |
|---|---|---|
| committer | jake%acutex.net <> | 2001-10-07 08:22:45 +0200 |
| commit | 15b28b225f4919d8362228929a7dd584e7723dfa (patch) | |
| tree | 642bb7c45cd2d7b4785edb6aa8fa88b0873b572f /t/001compile.t | |
| parent | 934948d1e59b99f23083e73c17344806cd25084b (diff) | |
| download | bugzilla-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/001compile.t')
| -rw-r--r-- | t/001compile.t | 9 |
1 files changed, 8 insertions, 1 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) { |