- rename help-*.po by help-*.pot

- fix typo in script removing $lang.po translations to favour help-*.pot

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 42c3d59c7..d6b0f8b2c 100755
--- a/perl-install/share/po/help_xml2pm.pl
+++ b/perl-install/share/po/help_xml2pm.pl
@@ -5,7 +5,7 @@ use MDK::Common;
 
 my $help;
 my $dir = "doc/manual/literal/drakx";
-my @langs = grep { /^..$/ } all($dir);
+my @langs = grep { /^..$/ } all($dir) or die "no XML help found in $dir\n";
 
 my %helps = map {
     my $lang = $_;
@@ -20,7 +20,7 @@ save_help($base);
 
 foreach my $lang (keys %helps) {
     local *F;
-    open F, "> help-$lang.po";
+    open F, "> help-$lang.pot";
     print F "\n";
     foreach my $id (keys %{$helps{$lang}}) {
 	$base->{$id} or die "$lang:$id doesn't exist in english\n";