···397397 if ($id eq 'LANG_VOICED_DATE_FORMAT') {
398398 my $sane = $lp{$tgt};
399399 $sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character for the format.
400400- $sane =~ tr/YAmd~//d;
400400+ $sane =~ tr/yYAmd~//d;
401401 if (length($sane) != 0) {
402402 $lang{$id}{'notes'} .= "### The <dest> section for '$id:$tgt' has illegal characters! Restoring from English!\n";
403403 $lang{$id}{'notes'} .= "#### the previously used one is commented below:\n";