voice: Flag ':' in voiced strings.

Also corrected the 100% languages:

   English, English-US, Chinese-Simplified, German, and Italian

(There is one Italian string I didn't know how to fix)

Change-Id: I958c6737810ad0199333d17fc092eab3120cef40
This commit is contained in:
Solomon Peachy 2024-07-21 11:22:24 -04:00
parent 370fde68ab
commit 9f366b1b8a
6 changed files with 87 additions and 87 deletions

View file

@ -476,9 +476,9 @@ foreach my $id (@langorder) {
}
my $sane = $lang{$id}{'voice'}{$tgt};
$sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise
if ($sane =~ tr/%"~//) {
# If it has suspicious characters that are not normally voiced..
$lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' has some suspicious characters (eg '%' or '~'), please double-check!\n";
if ($sane =~ tr/%"~://) {
# Suspicious characters that are not typically voiced..
$lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' has some suspicious characters (eg '%' or '~' or ':'), please correct!\n";
# print "#!! '$id:$tgt' suspicious characters\n";
}
if ($lang{$id}{'voice'}{$tgt} =~ /\.\.\./) {