fix more i18n punctuation fails

This commit is contained in:
Matthew Hodgson 2017-05-27 17:36:02 +01:00
parent 730258bd3c
commit f442a665c8
10 changed files with 20 additions and 15 deletions

View file

@ -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);