summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtools/updatelang8
1 files changed, 4 insertions, 4 deletions
diff --git a/tools/updatelang b/tools/updatelang
index 28f259bdbb..1fb594d596 100755
--- a/tools/updatelang
+++ b/tools/updatelang
@@ -402,9 +402,9 @@ foreach my $id (@langorder) {
402 402
403 my $sane = $lang{$id}{'dest'}{$tgt}; 403 my $sane = $lang{$id}{'dest'}{$tgt};
404 $sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise 404 $sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise
405 if ($sane =~ tr/"~//) { 405 if ($sane =~ tr/"~<>//) {
406 # If it has suspicious characters that are not allowed 406 # If it has suspicious characters that are not allowed
407 $lang{$id}{'notes'} .= "### The <dest> section for '$id:$tgt' has some suspicious characters (eg '~'), please double-check!\n"; 407 $lang{$id}{'notes'} .= "### The <dest> section for '$id:$tgt' has some suspicious characters (eg \",~,<,>), please double-check!\n";
408# print "#!! '$id:$tgt' suspicious characters\n"; 408# print "#!! '$id:$tgt' suspicious characters\n";
409 } 409 }
410 } 410 }
@@ -476,9 +476,9 @@ foreach my $id (@langorder) {
476 } 476 }
477 my $sane = $lang{$id}{'voice'}{$tgt}; 477 my $sane = $lang{$id}{'voice'}{$tgt};
478 $sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise 478 $sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise
479 if ($sane =~ tr/%"~://) { 479 if ($sane =~ tr/%"~:\[\]<>{}//) {
480 # Suspicious characters that are not typically voiced.. 480 # Suspicious characters that are not typically voiced..
481 $lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' has some suspicious characters (eg '%' or '~' or ':'), please correct!\n"; 481 $lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' has some suspicious characters (eg %,\",~,:,<,>,[,],{,}), please correct!\n";
482# print "#!! '$id:$tgt' suspicious characters\n"; 482# print "#!! '$id:$tgt' suspicious characters\n";
483 } 483 }
484 if ($lang{$id}{'voice'}{$tgt} =~ /\.\.\./) { 484 if ($lang{$id}{'voice'}{$tgt} =~ /\.\.\./) {