Bei E-Mail Versand von Mahnungen den Dateinamen des Anhangs übersetzen

[kivitendo-erp.git] / t / Support / Files.pm

diff --git a/t/Support/Files.pm b/t/Support/Files.pm
index e485561..d05f365 100644 (file)
--- a/t/Support/Files.pm
+++ b/t/Support/Files.pm
@@ -39,6 +39,7 @@ use File::Find;
 
 @files = glob('*');
 find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, 'SL');
+find(sub { push(@files, $File::Find::name) if $_ =~ /\.pl$/;}, qw(bin/mozilla sql/Pg-upgrade2));
 
 sub have_pkg {
     my ($pkg) = @_;