X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=scripts%2Ffind-use.pl;h=b2a3c0dafeb2447ab1617cac9bb5bcc6b7146111;hb=bfa674c9d4edc551afa6e27aac6f684a7b8cb656;hp=351ed86dbf544307463d531ad595d5d687173f42;hpb=ade508b5b3df74c0f55d0f46ab6c062ef3331132;p=kivitendo-erp.git diff --git a/scripts/find-use.pl b/scripts/find-use.pl index 351ed86db..b2a3c0daf 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; @@ -58,7 +57,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( @@ -137,7 +145,7 @@ $modules{$_->{name}} ||= { status => 'required' } for @SL::InstallationCheck::re $modules{$_->{name}} ||= { status => 'optional' } for @SL::InstallationCheck::optional_modules; $modules{$_->{name}} ||= { status => 'developer' } for @SL::InstallationCheck::developer_modules; -# build transitive closure for documented dependancies +# build transitive closure for documented dependencies my $changed = 1; while ($changed) { $changed = 0; @@ -215,7 +223,6 @@ find-use =head1 EXAMPLE # perl scipts/find-use.pl - !missing : Perl::Tags !missing : Template::Constants !missing : DBI @@ -242,7 +249,7 @@ This module is included in C. Don't worry about it. =item required This module is documented in C to be necessary, or is a -dependancy of one of these. Everything alright. +dependency of one of these. Everything alright. =item !missing