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:
46e64bc
)
locales.pl: Dateinamenstreffer relativ zum ERP-Verzeichnis anzeigen
author
Moritz Bunkus
<m.bunkus@linet-services.de>
Tue, 12 May 2015 12:12:08 +0000
(14:12 +0200)
committer
Moritz Bunkus
<m.bunkus@linet-services.de>
Tue, 12 May 2015 12:15:50 +0000
(14:15 +0200)
scripts/locales.pl
patch
|
blob
|
history
diff --git
a/scripts/locales.pl
b/scripts/locales.pl
index
eb1d81b
..
b192714
100755
(executable)
--- a/
scripts/locales.pl
+++ b/
scripts/locales.pl
@@
-22,6
+22,7
@@
use File::Slurp qw(slurp);
use FileHandle;
use Getopt::Long;
use IO::Dir;
+use List::MoreUtils qw(apply);
use List::Util qw(first);
use Pod::Usage;
@@
-180,9
+181,11
@@
if (@new_missing) {
if ($opt_f) {
for my $string (@new_missing) {
print "new string '$string' in files:\n";
- for my $file (keys %cached) {
- print " $file", $/ if $cached{$file}{all}{$string};
- }
+ print join "",
+ map { " $_\n" }
+ apply { s{^(?:\.\./)+}{} }
+ grep { $cached{$_}{all}{$string} }
+ keys %cached;
}
}