diff options
Diffstat (limited to 'perl-install/share/po/help_xml2pm.pl')
| -rwxr-xr-x | perl-install/share/po/help_xml2pm.pl | 27 |
1 files changed, 19 insertions, 8 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl index 93ad52f75..83afc691f 100755 --- a/perl-install/share/po/help_xml2pm.pl +++ b/perl-install/share/po/help_xml2pm.pl @@ -95,15 +95,26 @@ sub find { } sub rewrite2 { + use utf8; my ($tree, $lang) = @_; - our $i18ned_open_text_quote = $ {{ fr => "« ", de => "„"}}{$lang}; - our $i18ned_close_text_quote = $ {{ fr => " »", de => "“"}}{$lang}; - our $i18ned_open_label_quote = $ {{ fr => "« ", de => "„"}}{$lang}; - our $i18ned_close_label_quote = $ {{ fr => " »", de => "“"}}{$lang}; - our $i18ned_open_command_quote = $ {{ fr => "« ", de => "„"}}{$lang}; - our $i18ned_close_command_quote = $ {{ fr => " »", de => "“"}}{$lang}; - our $i18ned_open_input_quote = $ {{ fr => "« ", de => "»"}}{$lang}; - our $i18ned_close_input_quote = $ {{ fr => " »", de => "«"}}{$lang}; + our $i18ned_open_text_quote = $ {{ + fr => "« ", + de => "„", + es => "\\\"", + it => "''", + }}{$lang}; + our $i18ned_close_text_quote = $ {{ + fr => " »", + de => "“", + es => "\\\"", + it => "''", + }}{$lang}; + our $i18ned_open_label_quote = $ {{ fr => "« ", de => "„"}}{$lang}; + our $i18ned_close_label_quote = $ {{ fr => " »", de => "“"}}{$lang}; + our $i18ned_open_command_quote = $ {{ fr => "« ", de => "„"}}{$lang}; + our $i18ned_close_command_quote = $ {{ fr => " »", de => "“"}}{$lang}; + our $i18ned_open_input_quote = $ {{ fr => "« ", de => "»"}}{$lang}; + our $i18ned_close_input_quote = $ {{ fr => " »", de => "«"}}{$lang}; our $i18ned_open_key_quote = $ {{ de => "["}}{$lang}; our $i18ned_close_key_quote = $ {{ de => "]"}}{$lang}; # rewrite2_ fills in $help |