Modify Updatelang to make it more error proof when trasnlation come from Transifex

This commit is contained in:
Sébastien Lucas 2015-11-03 14:37:46 +01:00
parent 32a38fe2dd
commit 449b6bda01

View file

@ -67,7 +67,7 @@ sub handleLanguageFile {
my $content = loadFile ($file); my $content = loadFile ($file);
while ($content =~ /"(.*?)"\:"(.*?)",/igs) { while ($content =~ /"(.*?)"\:\s*"(.*?)",/igs) {
my $key = $1; my $key = $1;
my $value = $2; my $value = $2;
next if ($key =~ /^##TODO##/); next if ($key =~ /^##TODO##/);