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:
08ed38c
)
Dateilistings in find-use optional
author
Sven Schöling
<s.schoeling@linet-services.de>
Wed, 18 Jan 2012 09:34:03 +0000
(10:34 +0100)
committer
Sven Schöling
<s.schoeling@linet-services.de>
Wed, 18 Jan 2012 09:34:03 +0000
(10:34 +0100)
scripts/find-use.pl
patch
|
blob
|
history
diff --git
a/scripts/find-use.pl
b/scripts/find-use.pl
index
f65143e
..
9024221
100755
(executable)
--- a/
scripts/find-use.pl
+++ b/
scripts/find-use.pl
@@
-5,6
+5,7
@@
use File::Find;
use Module::CoreList;
use SL::InstallationCheck;
use Term::ANSIColor;
use Module::CoreList;
use SL::InstallationCheck;
use Term::ANSIColor;
+use Getopt::Long;
my (%uselines, %modules, %supplied, %requires);
my (%uselines, %modules, %supplied, %requires);
@@
-37,6
+38,10
@@
my (%uselines, %modules, %supplied, %requires);
}
);
}
);
+GetOptions(
+ 'files-with-match|l' => \ my $l,
+);
+
find(sub {
return unless /(\.p[lm]|console)$/;
find(sub {
return unless /(\.p[lm]|console)$/;
@@
-118,8
+123,12
@@
while ($changed) {
}
}
}
}
-print sprintf "%8s : %s (%s)", color_text($modules{$_}->{status}), $_, join(' ', @{ $modules{$_}->{files} || [] })
- for sort {
+do {
+ print sprintf "%8s : %s", color_text($modules{$_}->{status}), $_;
+ if ($l) {
+ print " $_" for @{ $modules{$_}->{files} || [] };
+ }
+} for sort {
$modules{$a}->{status} cmp $modules{$b}->{status}
|| $a cmp $b
} keys %modules;
$modules{$a}->{status} cmp $modules{$b}->{status}
|| $a cmp $b
} keys %modules;