fix more i18n punctuation fails
This commit is contained in:
parent
730258bd3c
commit
f442a665c8
10 changed files with 20 additions and 15 deletions
|
@ -51,6 +51,8 @@ EOT
|
|||
my $sub = 0;
|
||||
if ($_ =~ m/^(\s+)"(.*?)"(: *)"(.*?)"(,?)$/) {
|
||||
my ($indent, $src, $colon, $dst, $comma) = ($1, $2, $3, $4, $5);
|
||||
$src =~ s/\\"/"/g;
|
||||
$dst =~ s/\\"/"/g;
|
||||
|
||||
foreach my $fixup (@{$::fixups}) {
|
||||
my $dotless_fixup = substr($fixup, 0, -1);
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue