diff options
Diffstat (limited to 'perl-install/share')
-rw-r--r-- | perl-install/share/po/.cvsignore | 2 | ||||
-rw-r--r-- | perl-install/share/po/Makefile | 6 | ||||
-rwxr-xr-x | perl-install/share/po/help_xml2pm.pl | 4 |
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"; |