From 0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 6 Feb 2004 11:12:13 +0000 Subject: - handle zh_CN.po - handle tags and --- perl-install/share/po/help_xml2pm.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install') 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 <