From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 13 May 2013 07:59:11 +0000 (+0200)
Subject: locales.pl: bei Existierendem mit unterschiedlicher Groß-/Kleinschreibung warnen
X-Git-Tag: release-3.1.0beta1~412^2~1
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=27a422da03f302d6fdb026e823e4ce1c27dee9e2;p=kivitendo-erp.git

locales.pl: bei Existierendem mit unterschiedlicher Groß-/Kleinschreibung warnen
---

diff --git a/scripts/locales.pl b/scripts/locales.pl
index 8105abd9a..93b34fda1 100755
--- a/scripts/locales.pl
+++ b/scripts/locales.pl
@@ -166,6 +166,14 @@ close($js_file);
 my @new_missing = grep { !$self->{texts}{$_} } sort keys %alllocales;
 
 if (@new_missing) {
+  if ($opt_c) {
+    my %existing_lc = map { (lc $_ => $_) } grep { $self->{texts}->{$_} } keys %{ $self->{texts} };
+    foreach my $entry (@new_missing) {
+      my $other = $existing_lc{lc $entry};
+      print "W: No entry for '${entry}' exists, but there is one with different case: '${other}'\n" if $other;
+    }
+  }
+
   generate_file(
     file      => "$locales_dir/missing",
     header    => $MISSING_HEADER,