diff options
Diffstat (limited to 't')
-rw-r--r-- | t/002goodperl.t | 2 | ||||
-rw-r--r-- | t/Support/Files.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/t/002goodperl.t b/t/002goodperl.t index d1858361f..cfc9fb9e9 100644 --- a/t/002goodperl.t +++ b/t/002goodperl.t @@ -40,7 +40,7 @@ foreach my $file (@testitems) { ok(1,"$file does not have a shebang"); } else { my $flags; - if (!defined $ext || $ext eq "pl") { + if (!defined $ext || $ext eq 'pl' || $ext eq 'psgi') { # standalone programs aren't taint checked yet if (grep { $file eq $_ } @require_taint) { $flags = 'T'; diff --git a/t/Support/Files.pm b/t/Support/Files.pm index f3fae58fc..f1c88e858 100644 --- a/t/Support/Files.pm +++ b/t/Support/Files.pm @@ -34,7 +34,7 @@ sub isTestingFile { my ($file) = @_; my $exclude; - if ($file =~ /\.cgi$|\.pl$|\.pm$/) { + if ($file =~ /\.psgi$|\.cgi$|\.pl$|\.pm$/) { return 1; } my $additional; |