summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po/help_xml2pm.pl
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/share/po/help_xml2pm.pl')
-rwxr-xr-xperl-install/share/po/help_xml2pm.pl2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl
index e079cc22d..4f2a04e0c 100755
--- a/perl-install/share/po/help_xml2pm.pl
+++ b/perl-install/share/po/help_xml2pm.pl
@@ -94,6 +94,7 @@ sub rewrite1 {
foreach ($tree) {
s/\s+/ /gs;
s/"/\\"/g;
+ s/\x{ad}//g;
s/\x{2013}/-/g;
}
push @l, $tree
@@ -171,6 +172,7 @@ sub rewrite2_ {
$text =~ s/\s+$//;
qq(\n$text\n);
} elsif (member($tree->{tag}, 'quote', 'citetitle', 'foreignphrase')) {
+ $text =~ s/^\Q$i18ned_open_label_quote\E(.*)\Q$i18ned_close_label_quote\E$/$1/ if $i18ned_open_label_quote;
($i18ned_open_text_quote || "``") . $text . ($i18ned_close_text_quote || "''");
} elsif (member($tree->{tag}, 'guilabel', 'guibutton', 'guimenu', 'literal', 'filename')) {
($i18ned_open_label_quote || "\\\"") . $text . ($i18ned_close_label_quote || "\\\"");