From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 12 May 2015 12:12:08 +0000 (+0200)
Subject: locales.pl: Dateinamenstreffer relativ zum ERP-Verzeichnis anzeigen
X-Git-Tag: release-3.3.0beta~98
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=1b415045be9b397d54937443d2f8e0efa1a336ac;p=kivitendo-erp.git

locales.pl: Dateinamenstreffer relativ zum ERP-Verzeichnis anzeigen
---

diff --git a/scripts/locales.pl b/scripts/locales.pl
index eb1d81b67..b1927142e 100755
--- 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;
     }
   }