locales auch in Dateien mit Unterstrichen im Namen suchen

diff --git a/locale/de/io b/locale/de/io
index ebfdc15..70855b1 100644 (file)
--- a/locale/de/io
+++ b/locale/de/io
@@ -281,7 +281,6 @@ $self->{subs} = {
   'cov_selection_internal'      => 'cov_selection_internal',
   'customer_details'            => 'customer_details',
   'delivery_customer_selection' => 'delivery_customer_selection',
-  'display_form'                => 'display_form',
   'display_row'                 => 'display_row',
   'edit_e_mail'                 => 'edit_e_mail',
   'format_dates'                => 'format_dates',

diff --git a/locale/de/locales.pl b/locale/de/locales.pl
index e529d54..1746fa6 100755 (executable)
--- a/locale/de/locales.pl
+++ b/locale/de/locales.pl
@@ -59,9 +59,9 @@ sub parse_args {
 parse_args();
 
 opendir DIR, "$bindir" or die "$!";
-my @progfiles = grep { /\.pl$/ && !/(_|^\.)/ } readdir DIR;
+my @progfiles = grep { /\.pl$/ && !/(_custom|^\.)/ } readdir DIR;
 seekdir DIR, 0;
-my @customfiles = grep /_/, readdir DIR;
+my @customfiles = grep /_custom/, readdir DIR;
 closedir DIR;
 
 # put customized files into @customfiles