projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2d1086d
)
find-use: Unterscheidung zwischen required, optional, developer.
author
Sven Schöling
<s.schoeling@linet-services.de>
Wed, 30 Nov 2011 16:49:33 +0000
(17:49 +0100)
committer
Sven Schöling
<s.schoeling@linet-services.de>
Wed, 30 Nov 2011 16:49:33 +0000
(17:49 +0100)
scripts/find-use.pl
patch
|
blob
|
history
diff --git
a/scripts/find-use.pl
b/scripts/find-use.pl
index
84129c2
..
f65143e
100755
(executable)
--- a/
scripts/find-use.pl
+++ b/
scripts/find-use.pl
@@
-30,7
+30,11
@@
my (%uselines, %modules, %supplied, %requires);
'Template::Iterator' => 1,
'Template::Plugin' => 1,
'Template::Plugin::Filter' => 1,
'Template::Iterator' => 1,
'Template::Plugin' => 1,
'Template::Plugin::Filter' => 1,
+ 'Template::Plugin::HTML' => 1,
},
},
+ 'Devel::REPL' => {
+ 'namespace::clean' => 1,
+ }
);
find(sub {
);
find(sub {
@@
-81,7
+85,9
@@
for my $useline (keys %uselines) {
my $version = Module::CoreList->first_release($module);
$modules{$module} = { status => $supplied{$module} ? 'included'
: $version ? sprintf '%2.6f', $version
my $version = Module::CoreList->first_release($module);
$modules{$module} = { status => $supplied{$module} ? 'included'
: $version ? sprintf '%2.6f', $version
- : is_documented($module) ? 'required'
+ : is_required($module) ? 'required'
+ : is_optional($module) ? 'optional'
+ : is_developer($module) ? 'developer'
: '!missing',
files => $uselines{$useline},
};
: '!missing',
files => $uselines{$useline},
};
@@
-103,7
+109,7
@@
while ($changed) {
for my $dst_module (keys %{ $requires{$src_module} }) {
if ( $modules{$src_module}
&& $modules{$dst_module}
for my $dst_module (keys %{ $requires{$src_module} }) {
if ( $modules{$src_module}
&& $modules{$dst_module}
- && $modules{$src_module}->{status} =~ /^
required
/
+ && $modules{$src_module}->{status} =~ /^
(required|devel|optional)
/
&& $modules{$dst_module}->{status} eq '!missing') {
$modules{$dst_module}->{status} = "required"; # . ", via $src_module";
$changed = 1;
&& $modules{$dst_module}->{status} eq '!missing') {
$modules{$dst_module}->{status} = "required"; # . ", via $src_module";
$changed = 1;
@@
-128,11
+134,21
@@
sub modulize {
}
}
}
}
-sub is_
document
ed {
+sub is_
requir
ed {
my ($module) = @_;
grep { $_->{name} eq $module } @SL::InstallationCheck::required_modules;
}
my ($module) = @_;
grep { $_->{name} eq $module } @SL::InstallationCheck::required_modules;
}
+sub is_optional {
+ my ($module) = @_;
+ grep { $_->{name} eq $module } @SL::InstallationCheck::optional_modules;
+}
+
+sub is_developer {
+ my ($module) = @_;
+ grep { $_->{name} eq $module } @SL::InstallationCheck::developer_modules;
+}
+
sub color_text {
my ($text) = @_;
return color(get_color($text)) . $text . color('reset');
sub color_text {
my ($text) = @_;
return color(get_color($text)) . $text . color('reset');