X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/04affa34f56018c9065e202cfe911d503ff5520a..afdd12edf409d02d0088e01fc7a756d88043eb4e:/scripts/find-use.pl

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
index f3859916e..c583ecc8e 100755
--- a/scripts/find-use.pl
+++ b/scripts/find-use.pl
@@ -5,7 +5,6 @@ BEGIN {
 
   unshift(@INC, $FindBin::Bin . '/../modules/override'); # Use our own versions of various modules (e.g. YAML).
   push   (@INC, $FindBin::Bin . '/..');                  # '.' will be removed from @INC soon.
-  push   (@INC, $FindBin::Bin . '/../modules/fallback'); # Only use our own versions of modules if there's no system version.
 }
 
 use strict;
@@ -62,6 +61,12 @@ my (%uselines, %modules, %supplied, %requires);
   'HTML::Parser' => {
     'HTML::Entities'                     => 1,
   },
+  'URI' => {
+    'URI::Escape'                        => 1,
+  },
+  'File::MimeInfo' => {
+    'File::MimeInfo::Magic'              => 1,
+  },
 );
 
 GetOptions(
@@ -218,7 +223,6 @@ find-use
 =head1 EXAMPLE
 
  # perl scipts/find-use.pl
- !missing : Perl::Tags
  !missing : Template::Constants
  !missing : DBI