diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-09-12 22:46:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-09-12 22:46:06 +0000 |
| commit | 914b79874caf83dec927da037f2a918a6d7f5d67 (patch) | |
| tree | f0422e06c783fd7bbfdbdf50dbbc1292893f5b59 /perl-install/share | |
| parent | 41e6793bffcf3a9ceb32413a70973abc8b449065 (diff) | |
| download | drakx-914b79874caf83dec927da037f2a918a6d7f5d67.tar drakx-914b79874caf83dec927da037f2a918a6d7f5d67.tar.gz drakx-914b79874caf83dec927da037f2a918a6d7f5d67.tar.bz2 drakx-914b79874caf83dec927da037f2a918a6d7f5d67.tar.xz drakx-914b79874caf83dec927da037f2a918a6d7f5d67.zip | |
- discard ­ (ie \x{ad})
- handle <quote><literal>xxx</literal></quote> specially to not have double
double quotes
Diffstat (limited to 'perl-install/share')
| -rwxr-xr-x | perl-install/share/po/help_xml2pm.pl | 2 |
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 || "\\\""); |