Fixes for 'backup.pl' (Bug #11816)
[ipfire-2.x.git] / tools / check_strings.pl
old mode 100644 (file)
new mode 100755 (executable)
index d521068..b623778
@@ -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';
                        }
                }