Task-Server: Debug-Meldung, falls Beendigung wg. Memory-Limit.

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

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
index da5d65f295f2bf089b40eadba5164a7449e8a56d..c583ecc8eb9f612fcc953277cfb6aad43c014108 100755 (executable)
--- 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;
@@ -65,6 +64,9 @@ my (%uselines, %modules, %supplied, %requires);
   'URI' => {
     'URI::Escape'                        => 1,
   },
+  'File::MimeInfo' => {
+    'File::MimeInfo::Magic'              => 1,
+  },
 );
 
 GetOptions(
@@ -221,7 +223,6 @@ find-use
 =head1 EXAMPLE
 
  # perl scipts/find-use.pl
- !missing : Perl::Tags
  !missing : Template::Constants
  !missing : DBI