locales auch in Dateien mit Unterstrichen im Namen suchen

diff --git a/locale/de/io b/locale/de/io
index ebfdc15080ad96448a70e50094b12256c6b89fb2..70855b1fa01d1e400a531189912ce19de0842b5f 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 e529d548e2b09775fe32ec7f758c4efcae5a364f..1746fa671f187c5229f5fdecc4a8e68cfc5b4f4b 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