diff options
| -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); |