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 d521068c23f39ade2449f6759894102f8552af4d..b623778b710c0e72a2b6ec00851c96a4e057378b 100755 (executable)
--- 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>) {
 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';
                        }
                }
                                $tr2{$1} = 'empty string';
                        }
                }