From 27a422da03f302d6fdb026e823e4ce1c27dee9e2 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 13 May 2013 09:59:11 +0200
Subject: [PATCH] =?utf8?q?locales.pl:=20bei=20Existierendem=20mit=20unters?=
 =?utf8?q?chiedlicher=20Gro=C3=9F-/Kleinschreibung=20warnen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 scripts/locales.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

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,
-- 
2.20.1