projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Sprache auf ungültig setzen im Admin-Bereich
[kivitendo-erp.git]
/
scripts
/
find-use.pl
diff --git
a/scripts/find-use.pl
b/scripts/find-use.pl
index
959ecbe
..
b2a3c0d
100755
(executable)
--- a/
scripts/find-use.pl
+++ b/
scripts/find-use.pl
@@
-1,4
+1,12
@@
#!/usr/bin/perl -l
#!/usr/bin/perl -l
+
+BEGIN {
+ use FindBin;
+
+ 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.
+}
+
use strict;
#use warnings; # corelist and find throw tons of warnings
use File::Find;
use strict;
#use warnings; # corelist and find throw tons of warnings
use File::Find;
@@
-21,6
+29,9
@@
my (%uselines, %modules, %supplied, %requires);
'Rose::DB::Object::ConventionManager' => 1,
'Rose::DB::Object::Manager' => 1,
'Rose::DB::Object::Metadata' => 1,
'Rose::DB::Object::ConventionManager' => 1,
'Rose::DB::Object::Manager' => 1,
'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,
},
'Rose::Object' => {
'Rose::Object::MakeMethods::Generic' => 1,
@@
-32,6
+43,7
@@
my (%uselines, %modules, %supplied, %requires);
'Template::Plugin' => 1,
'Template::Plugin::Filter' => 1,
'Template::Plugin::HTML' => 1,
'Template::Plugin' => 1,
'Template::Plugin::Filter' => 1,
'Template::Plugin::HTML' => 1,
+ 'Template::Stash' => 1,
},
'Devel::REPL' => {
'namespace::clean' => 1,
},
'Devel::REPL' => {
'namespace::clean' => 1,
@@
-43,12
+55,26
@@
my (%uselines, %modules, %supplied, %requires);
'TAP::Parser' => 1,
'TAP::Parser::Aggregator' => 1,
},
'TAP::Parser' => 1,
'TAP::Parser::Aggregator' => 1,
},
+ 'Archive::Zip' => {
+ 'Archive::Zip::Member' => 1,
+ },
+ 'HTML::Parser' => {
+ 'HTML::Entities' => 1,
+ },
+ 'URI' => {
+ 'URI::Escape' => 1,
+ },
+ 'File::MimeInfo' => {
+ 'File::MimeInfo::Magic' => 1,
+ },
);
GetOptions(
'files-with-match|l' => \ my $l,
);
);
GetOptions(
'files-with-match|l' => \ my $l,
);
+chmod($FindBin::Bin . '/..');
+
find(sub {
return unless /(\.p[lm]|console)$/;
find(sub {
return unless /(\.p[lm]|console)$/;
@@
-63,6
+89,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 /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+(.*?)$/;
my ($useline) = m/^use\s+(.*?)$/;
@@
-118,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;
$modules{$_->{name}} ||= { status => 'optional' } for @SL::InstallationCheck::optional_modules;
$modules{$_->{name}} ||= { status => 'developer' } for @SL::InstallationCheck::developer_modules;
-# build transitive closure for documented depend
a
ncies
+# build transitive closure for documented depend
e
ncies
my $changed = 1;
while ($changed) {
$changed = 0;
my $changed = 1;
while ($changed) {
$changed = 0;
@@
-196,7
+223,6
@@
find-use
=head1 EXAMPLE
# perl scipts/find-use.pl
=head1 EXAMPLE
# perl scipts/find-use.pl
- !missing : Perl::Tags
!missing : Template::Constants
!missing : DBI
!missing : Template::Constants
!missing : DBI
@@
-223,7
+249,7
@@
This module is included in C<modules/*>. Don't worry about it.
=item required
This module is documented in C<SL:InstallationCheck> to be necessary, or is a
=item required
This module is documented in C<SL:InstallationCheck> to be necessary, or is a
-depend
a
ncy of one of these. Everything alright.
+depend
e
ncy of one of these. Everything alright.
=item !missing
=item !missing