X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=scripts%2Ffind-use.pl;h=61bfff751096c2060367bb7a373bbd4bf436f17e;hb=497da0ff32257cd249c8c60991f8aaebd92f409c;hp=b9220d423f354bd995d5b14e8006f6e22d2878d4;hpb=cff913a1c984f82558a7d59dec0b8b1a06c5530d;p=kivitendo-erp.git

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
index b9220d423..61bfff751 100755
--- 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,
@@ -57,7 +58,16 @@ my (%uselines, %modules, %supplied, %requires);
   },
   'Archive::Zip' => {
     'Archive::Zip::Member'               => 1,
-  }
+  },
+  'HTML::Parser' => {
+    'HTML::Entities'                     => 1,
+  },
+  'URI' => {
+    'URI::Escape'                        => 1,
+  },
+  'File::MimeInfo' => {
+    'File::MimeInfo::Magic'              => 1,
+  },
 );
 
 GetOptions(
@@ -80,6 +90,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+(.*?)$/;
 
@@ -213,7 +224,6 @@ find-use
 =head1 EXAMPLE
 
  # perl scipts/find-use.pl
- !missing : Perl::Tags
  !missing : Template::Constants
  !missing : DBI