Rekursion in scripts/locales.pl verhindern.

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

diff --git a/scripts/locales.pl b/scripts/locales.pl
index c4adf1c..9e6a4ae 100755 (executable)
--- 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;