From: Sven Schöling <s.schoeling@linet-services.de>
Date: Wed, 5 Jun 2013 13:32:10 +0000 (+0200)
Subject: Rekursion in scripts/locales.pl verhindern.
X-Git-Tag: release-3.1.0beta1~363
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/24ea4061be2db0fba94ec117db2b737b758fb891?ds=sidebyside;hp=--cc

Rekursion in scripts/locales.pl verhindern.

Problem war ein leakendes $', wenn ein Regex fehlgeschlagen ist.
---

24ea4061be2db0fba94ec117db2b737b758fb891
diff --git a/scripts/locales.pl b/scripts/locales.pl
index c4adf1cf1..9e6a4ae58 100755
--- a/scripts/locales.pl
+++ b/scripts/locales.pl
@@ -444,8 +444,11 @@ sub scanfile {
           }
         }
 
-        my ($found) = / (?: locale->text | \b t8 ) \b .*? \(/x;
-        $postmatch = "$'";
+        my $found;
+        if (/ (?: locale->text | \b t8 ) \b .*? \(/x) {
+          $found     = 1;
+          $postmatch = "$'";
+        }
 
         if ($found) {
           my $string;