From 48396bdffedb612a8841bc26bf070c48ac66502f Mon Sep 17 00:00:00 2001 From: Michael Tremer Date: Wed, 1 Jun 2016 22:17:10 +0100 Subject: [PATCH] buildsystem: Escape curly brackets Newer versions of perl complain about using unescaped left curly brackets. Signed-off-by: Michael Tremer --- tools/check_strings.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 () { - while ($_ =~ /\$Lang::tr{'([A-Za-z0-9,:_\s\/\.-]+)'}/g) { + while ($_ =~ /\$Lang::tr\{'([A-Za-z0-9,:_\s\/\.-]+)'\}/g) { $tr2{$1} = 'empty string'; } } -- 2.39.2