summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-06 11:12:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-06 11:12:13 +0000
commit0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e (patch)
treed46717ff72140e4ad3cd893e27fa48a8db03d2b9 /perl-install
parente66b9088c73f728c35d20bf267933fefffc2e7b8 (diff)
downloaddrakx-0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e.tar
drakx-0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e.tar.gz
drakx-0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e.tar.bz2
drakx-0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e.tar.xz
drakx-0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e.zip
- handle zh_CN.po
- handle tags <phrase> and <hardware>
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/share/po/help_xml2pm.pl6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl
index 8976fb396..e4e2eba76 100755
--- a/perl-install/share/po/help_xml2pm.pl
+++ b/perl-install/share/po/help_xml2pm.pl
@@ -33,9 +33,10 @@ my $base = delete $helps{en} || die;
save_help($base);
foreach my $lang (keys %helps) {
+ (my $rlang = $lang) =~ s/_(.*)/_\U$1/;
print "Now transforming: $lang\n";
- my ($charset) = cat_("$lang.po") =~ /charset=([^\\]+)/ or die "missing charset in $lang.po\n";
- open(my $F, ">:encoding($charset)", "help-$lang.pot");
+ my ($charset) = cat_("$rlang.po") =~ /charset=([^\\]+)/ or die "missing charset in $rlang.po\n";
+ open(my $F, ">:encoding($charset)", "help-$rlang.pot");
print $F <<EOF;
msgid ""
msgstr ""
@@ -233,6 +234,7 @@ sub rewrite2_ {
'keycombo', 'note', 'sect1', 'sect2',
'superscript', 'systemitem',
'tip', 'ulink', 'xref', 'varlistentry', 'variablelist', 'term',
+ 'phrase', 'hardware',
)) {
# ignored tags
$text;