From 8aa6cf77d6e3b37f2447b2d25dfc9605726a8b0d Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 7 Jan 2008 16:04:00 +0000
Subject: [PATCH] =?utf8?q?Warnungen=20ausgeben,=20wenn=20referenzierte=20H?=
 =?utf8?q?TML-Vorlagen=20nicht=20gefunden=20werden.=20Syntaxhighlightinger?=
 =?utf8?q?leichterung=20f=C3=BCr=20Emacs.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 locale/de/locales.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/locale/de/locales.pl b/locale/de/locales.pl
index 266823f7b..fefaead05 100755
--- a/locale/de/locales.pl
+++ b/locale/de/locales.pl
@@ -343,6 +343,8 @@ sub scanfile {
 #           &converthtmlfile($newfile);
            $cached{$file}{scanh}{$newfile} = 1;
           print "." if $arg{v};
+        } else {
+          print "W: missing HTML template: $newfile (referenced from $file)\n";
         }
       }
 
@@ -435,7 +437,7 @@ sub scanmenu {
   my $fh = new FileHandle;
   open $fh, "$file" or die "$! : $file";
 
-  my @a = grep /^\[/, <$fh>;
+  my @a = grep m/^\[/, <$fh>;
   close($fh);
 
   # strip []
-- 
2.20.1