summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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;