FlattenToForm: Information, ob das item ein Erzeugnis ist, berücksichtigen.

[mfinanz.git] / t / Support / Files.pm

diff --git a/t/Support/Files.pm b/t/Support/Files.pm
index e485561a35665a2c0c7954de3742685b6a333373..b91f44f8fbc94bc3177ccc51ae54c001b509b512 100644 (file)
--- a/t/Support/Files.pm
+++ b/t/Support/Files.pm
@@ -39,6 +39,8 @@ 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));
+find(sub { push(@files, $File::Find::name) if $_ =~ /\.html$/;}, qw(templates/webpages));
 
 sub have_pkg {
     my ($pkg) = @_;