From 1b415045be9b397d54937443d2f8e0efa1a336ac Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 12 May 2015 14:12:08 +0200
Subject: [PATCH] locales.pl: Dateinamenstreffer relativ zum ERP-Verzeichnis
 anzeigen

---
 scripts/locales.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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;
     }
   }
 
-- 
2.20.1