Nur Dateien nach $locale->text() durchsuchen, deren Name mit .pl endet.

diff --git a/locale/de/locales.pl b/locale/de/locales.pl
index f12001ce0fdfc03354d02f138e7469429f4f7b82..c568467f20c40aa60d90bcb3bdc5d27f145bb28c 100755 (executable)
--- a/locale/de/locales.pl
+++ b/locale/de/locales.pl
@@ -25,7 +25,7 @@ foreach $item (@ARGV) {
 }
 
 opendir DIR, "$bindir" or die "$!";
-@progfiles = grep { /\.pl$/; !/(_|^\.)/ } readdir DIR;
+@progfiles = grep { /\.pl$/ && !/(_|^\.)/ } readdir DIR;
 seekdir DIR, 0;
 @customfiles = grep /_/, readdir DIR;
 closedir DIR;