X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/096a80d20d76ef535bea0a0fad783af9a6ddea9f..c10ad4bbce3fdf09e6e3150f5e36e10ebbb58f90:/scripts/find-use.pl

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
index 320a3690a..8078e50ee 100755
--- a/scripts/find-use.pl
+++ b/scripts/find-use.pl
@@ -58,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(
@@ -81,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+(.*?)$/;