diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-29 23:12:35 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-29 23:12:35 +0000 |
commit | 84a6dbba1e0c345092c77c14cf209b6a27577f2c (patch) | |
tree | add537f63b34abbfb7173112afcd41423c6a845b | |
parent | 73a35cd13f04b447691234eb9c24fb5a880cbab1 (diff) | |
download | drakx-84a6dbba1e0c345092c77c14cf209b6a27577f2c.tar drakx-84a6dbba1e0c345092c77c14cf209b6a27577f2c.tar.gz drakx-84a6dbba1e0c345092c77c14cf209b6a27577f2c.tar.bz2 drakx-84a6dbba1e0c345092c77c14cf209b6a27577f2c.tar.xz drakx-84a6dbba1e0c345092c77c14cf209b6a27577f2c.zip |
- fix missing to_ascii on english part in help-xx.pot
- ignore drakxid's in a language but not in english
-rwxr-xr-x | perl-install/share/po/help_xml2pm.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl index 0af0ddee4..e079cc22d 100755 --- a/perl-install/share/po/help_xml2pm.pl +++ b/perl-install/share/po/help_xml2pm.pl @@ -39,10 +39,10 @@ foreach my $lang (keys %helps) { open F, ">:encoding($charset)", "help-$lang.pot"; print F "\n"; foreach my $id (keys %{$helps{$lang}}) { - $base->{$id} or die "$lang:$id doesn't exist in english\n"; + $base->{$id} or warn "$lang:$id doesn't exist in english\n", next; print F qq(# DO NOT BOTHER TO MODIFY HERE, SEE:\n# cvs.mandrakesoft.com:/cooker/$dir/$lang/drakx-chapter.xml\n); print F qq(msgid ""\n"); - print F join(qq(\\n"\n"), split "\n", $base->{$id}); + print F join(qq(\\n"\n"), split "\n", to_ascii($base->{$id})); print F qq("\nmsgstr ""\n"); print F join(qq(\\n"\n"), split "\n", $helps{$lang}{$id}); print F qq("\n\n); |