diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-10 10:45:57 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-10 10:45:57 +0000 |
commit | b7aa47e32bb64232577863f8911ac00c03d2de1b (patch) | |
tree | b32fbc1ead081f6558fd5033245616092a03f359 /perl-install/share/po/help_xml2pm.pl | |
parent | 87ba59029dc4b91571795ee52e94a5b46fafec2c (diff) | |
download | drakx-b7aa47e32bb64232577863f8911ac00c03d2de1b.tar drakx-b7aa47e32bb64232577863f8911ac00c03d2de1b.tar.gz drakx-b7aa47e32bb64232577863f8911ac00c03d2de1b.tar.bz2 drakx-b7aa47e32bb64232577863f8911ac00c03d2de1b.tar.xz drakx-b7aa47e32bb64232577863f8911ac00c03d2de1b.zip |
- rename help-*.po by help-*.pot
- fix typo in script removing $lang.po translations to favour help-*.pot
Diffstat (limited to 'perl-install/share/po/help_xml2pm.pl')
-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 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"; |