summaryrefslogtreecommitdiffstats
path: root/perl-install/share
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-09-12 22:46:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-09-12 22:46:06 +0000
commit914b79874caf83dec927da037f2a918a6d7f5d67 (patch)
treef0422e06c783fd7bbfdbdf50dbbc1292893f5b59 /perl-install/share
parent41e6793bffcf3a9ceb32413a70973abc8b449065 (diff)
downloaddrakx-914b79874caf83dec927da037f2a918a6d7f5d67.tar
drakx-914b79874caf83dec927da037f2a918a6d7f5d67.tar.gz
drakx-914b79874caf83dec927da037f2a918a6d7f5d67.tar.bz2
drakx-914b79874caf83dec927da037f2a918a6d7f5d67.tar.xz
drakx-914b79874caf83dec927da037f2a918a6d7f5d67.zip
- discard &shy; (ie \x{ad})
- handle <quote><literal>xxx</literal></quote> specially to not have double double quotes
Diffstat (limited to 'perl-install/share')
-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 || "\\\"");