warn for duplicate translation keys
parent
67323e3690
commit
85f830db71
|
@ -141,6 +141,8 @@ foreach my $lang (grep { -f "$i18ndir/$_" && !/(basefile|en_EN)\.json/ } @files)
|
||||||
sub read_i18n {
|
sub read_i18n {
|
||||||
my $path = shift;
|
my $path = shift;
|
||||||
my $map = {};
|
my $map = {};
|
||||||
|
$path =~ /.*\/(.*)$/;
|
||||||
|
my $lang = $1;
|
||||||
|
|
||||||
open(FILE, "<", $path) || die $!;
|
open(FILE, "<", $path) || die $!;
|
||||||
while(<FILE>) {
|
while(<FILE>) {
|
||||||
|
@ -148,6 +150,10 @@ sub read_i18n {
|
||||||
my ($indent, $src, $colon, $dst, $comma) = ($1, $2, $3, $4, $5);
|
my ($indent, $src, $colon, $dst, $comma) = ($1, $2, $3, $4, $5);
|
||||||
$src =~ s/\\"/"/g;
|
$src =~ s/\\"/"/g;
|
||||||
$dst =~ s/\\"/"/g;
|
$dst =~ s/\\"/"/g;
|
||||||
|
|
||||||
|
if ($map->{$src}) {
|
||||||
|
printf ("%10s %24s\t%s\n", $lang, "Duplicate translation!", $src);
|
||||||
|
}
|
||||||
$map->{$src} = $dst;
|
$map->{$src} = $dst;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue