From 24ea4061be2db0fba94ec117db2b737b758fb891 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Wed, 5 Jun 2013 15:32:10 +0200
Subject: [PATCH] Rekursion in scripts/locales.pl verhindern.

Problem war ein leakendes $', wenn ein Regex fehlgeschlagen ist.
---
 scripts/locales.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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