From 0d6c1280bccff2427eea3227573897501f775bac Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 21 Jan 2010 15:13:30 +0100
Subject: [PATCH] locales auch in Dateien mit Unterstrichen im Namen suchen

---
 locale/de/io         | 1 -
 locale/de/locales.pl | 4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/locale/de/io b/locale/de/io
index ebfdc1508..70855b1fa 100644
--- 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 e529d548e..1746fa671 100755
--- 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
-- 
2.20.1