summaryrefslogtreecommitdiffstats
path: root/perl-install/share
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/share')
-rw-r--r--perl-install/share/po/.cvsignore2
-rw-r--r--perl-install/share/po/Makefile6
-rwxr-xr-xperl-install/share/po/help_xml2pm.pl4
3 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/share/po/.cvsignore b/perl-install/share/po/.cvsignore
index 5a11b8d84..1ffdd04b6 100644
--- a/perl-install/share/po/.cvsignore
+++ b/perl-install/share/po/.cvsignore
@@ -2,4 +2,4 @@
*.mo
*~
doc
-help-*.po
+help-*.pot
diff --git a/perl-install/share/po/Makefile b/perl-install/share/po/Makefile
index 5773bace8..6ca5adefa 100644
--- a/perl-install/share/po/Makefile
+++ b/perl-install/share/po/Makefile
@@ -24,8 +24,8 @@ $(PMSCFILES): %_.c: %
./fake_c.pl $< > $@
$(POFILES): DrakX.pot
- perl -ne 'print unless /^#.*\Qdrakx-help.xml/ .. /^$/' $@ > $@t
- if [ -e help-$@ ]; then msgmerge -C help-$@ $@t $< > $@; else msgmerge $@t $< > $@; fi
+ perl -ne 'print unless /^#.*\Qdrakx-help.xml/ .. /^$$/' $@ > $@t
+ if [ -e help-$@t ]; then msgmerge -C help-$@t $@t $< > $@; else msgmerge $@t $< > $@; fi
rm $@t
DrakX.pot: $(PMSFILES)
@@ -41,7 +41,7 @@ install:
done
clean:
- rm -rf drakx-help.xml doc empty.po tmp.* messages tmp.pot *.mo $(POFILES:%=%t) $(PMSCFILES)
+ rm -rf drakx-help.xml help-*.po{t,} doc empty.po tmp.* messages tmp.pot *.mo $(POFILES:%=%t) $(PMSCFILES)
check:
@grep -F '$$' DrakX.pot && { echo "bad translation strings (contains \$$) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"; exit 1; } ||:
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";