summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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);