From bedf5ec6f0b8eac713b3a49c35a83adea0c76eb5 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Thu, 22 Apr 2010 11:03:30 +0200
Subject: [PATCH] Substring Fehler in locale/de/locales.pl
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Das substr dass erkannte Locales entfernen sollte hat als Startposition fälschlicherweise den ersten Submatch genommen. Dadurch wurden die ersten 3 Byte des nächsten Strings gegrillt was in seltenen Fällen zu Folgefehlern beim Matchen führen konnte.

Wurde maskiert dadurch, dass es vor der[\-~#]* Änderung nicht möglich war mehrere Locales in einer Zeile zu erkennen.
---
 locale/de/locales.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/locale/de/locales.pl b/locale/de/locales.pl
index 57bf8c117..701cacec0 100755
--- a/locale/de/locales.pl
+++ b/locale/de/locales.pl
@@ -570,11 +570,11 @@ sub scanhtmlfile {
                         [\-~#]*         # Whitespace-Unterdrückung
                         \%\]            # Template-Ende-Tag
                        /ix) {
-#        print "Found filter >>>$1<<<\n";
+#        print "Found filter '$1' in string '$line'\n";
         $cached{$_[0]}{all}{$1}  = 1;
         $cached{$_[0]}{html}{$1} = 1;
         $plugins{needed}->{T8}   = 1;
-        substr $line, $-[1], $+[0] - $-[0], '';
+        substr $line, $-[0], $+[0] - $-[0], '';
       }
 
       while ("" ne $line) {
-- 
2.20.1