buildsystem: Escape curly brackets
authorMichael Tremer <michael.tremer@ipfire.org>
Wed, 1 Jun 2016 21:17:10 +0000 (22:17 +0100)
committerMichael Tremer <michael.tremer@ipfire.org>
Wed, 1 Jun 2016 21:17:10 +0000 (22:17 +0100)
Newer versions of perl complain about using unescaped
left curly brackets.

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
tools/check_strings.pl

index d521068..b623778 100755 (executable)
@@ -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';
                        }
                }