X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ff159a4d47b9a2d10744dcfc23da2c63605c8a32..eeb5375ee7727c956cc357cc8f90b19d1bfe80b9:/scripts/find-use.pl

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
index b2a3c0daf..cad3d21a1 100755
--- a/scripts/find-use.pl
+++ b/scripts/find-use.pl
@@ -25,6 +25,12 @@ my (%uselines, %modules, %supplied, %requires);
     'DateTime::Duration'                 => 1,
     'DateTime::Infinite'                 => 1,
   },
+  'Exception::Class' => {
+    'Exception::Class::Base'             => 1,
+  },
+  'Rose::DB' => {
+    'Rose::DB::Cache'                    => 1,
+  },
   'Rose::DB::Object' => {
    'Rose::DB::Object::ConventionManager' => 1,
    'Rose::DB::Object::Manager'           => 1,
@@ -89,7 +95,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)/;
+    next if /^use (it|the|with)/;
 
     my ($useline) = m/^use\s+(.*?)$/;