fix more i18n punctuation fails

2017-05-27 17:36:02 +01:00
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);