From: Michael Tremer <michael.tremer@ipfire.org>
Date: Wed, 1 Jun 2016 21:17:10 +0000 (+0100)
Subject: buildsystem: Escape curly brackets
X-Git-Tag: v2.19-core103~24
X-Git-Url: http://git.ipfire.org/?p=ipfire-2.x.git;a=commitdiff_plain;h=48396bdffedb612a8841bc26bf070c48ac66502f

buildsystem: Escape curly brackets

Newer versions of perl complain about using unescaped
left curly brackets.

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
---

diff --git a/tools/check_strings.pl b/tools/check_strings.pl
index d521068c23..b623778b71 100755
--- a/tools/check_strings.pl
+++ b/tools/check_strings.pl
@@ -36,7 +36,7 @@ require "${basedir}/langs/$lang/cgi-bin/$lang.pl";
 sub wanted {
 	if ( -f $File::Find::name && open(FILE, $File::Find::name)) {
 		while (<FILE>) {
-			while ($_ =~ /\$Lang::tr{'([A-Za-z0-9,:_\s\/\.-]+)'}/g) {
+			while ($_ =~ /\$Lang::tr\{'([A-Za-z0-9,:_\s\/\.-]+)'\}/g) {
 				$tr2{$1} = 'empty string';
 			}
 		}