Task-Server & FailedBackgroundJobsReport: Encoding des E-Mail-Bodys gefixt

[mfinanz.git] / scripts / find-use.pl

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
index b9220d423f354bd995d5b14e8006f6e22d2878d4..351ed86dbf544307463d531ad595d5d687173f42 100755 (executable)
--- a/scripts/find-use.pl
+++ b/scripts/find-use.pl
@@ -32,6 +32,7 @@ my (%uselines, %modules, %supplied, %requires);
    'Rose::DB::Object::Metadata'          => 1,
    'Rose::DB::Object::Helpers'           => 1,
    'Rose::DB::Object::Util'              => 1,
+   'Rose::DB::Object::Constants'         => 1,
   },
   'Rose::Object' => {
     'Rose::Object::MakeMethods::Generic' => 1,
@@ -80,6 +81,7 @@ find(sub {
     next if /SL::/;
     next if /Support::Files/; # our own test support module
     next if /use (warnings|strict|vars|lib|constant|utf8)/;
+    next if /^use (with|the)/;
 
     my ($useline) = m/^use\s+(.*?)$/;