[Po4a-commits] po4a Build.PL,1.11,1.12
Jordi Vilalta
po4a-devel@lists.alioth.debian.org
Sat, 30 Oct 2004 11:01:28 +0000
Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv10740
Modified Files:
Build.PL
Log Message:
Specify the documentation character set. It isn't ascii anymore since the
addition of Nicolas François to the Man.pm Authors ('ç' isn't ascii).
Now the documentation po files are in utf-8, and the translated pod files
(and also the derivated man pages and html pages) are also in utf-8.
Index: Build.PL
===================================================================
RCS file: /cvsroot/po4a/po4a/Build.PL,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- Build.PL 9 Aug 2004 18:44:00 -0000 1.11
+++ Build.PL 30 Oct 2004 11:01:25 -0000 1.12
@@ -90,7 +90,7 @@
unless ($self->up_to_date(\@files, "po/pod/po4a-pod.pot")) {
my $podfiles = join ("", map {" -m ../../".$_ } @files);
print "XX Update documentation pot files: ";
- system("cd po/pod; PERL5LIB=../../lib perl ../../po4a-updatepo -f pod $podfiles -p po4a-pod.pot")
+ system("cd po/pod; PERL5LIB=../../lib perl ../../po4a-updatepo -f pod $podfiles -M iso8859-1 -p po4a-pod.pot")
&& die;
my ($atime, $mtime) = (time,time);
utime $atime, $mtime, "po/pod/po4a-pod.pot";
@@ -132,6 +132,8 @@
$self->depends_on('manpo');
use Pod::Man;
+
+ my $options = "-v -f pod -M iso8859-1";
#get the languages
my @langs = @{$self->rscan_dir('po/pod',qr{\.po$})};
@@ -152,7 +154,7 @@
foreach $lang (@langs) {
print ("X Translate binary manpages to $lang\n");
foreach $file (keys(%{$self->script_files()})) {
- system("PERL5LIB=lib perl po4a-translate -v -f pod -m $file -p po/pod/$lang.po -l blib/man/$file -a doc/addendum.$lang")
+ system("PERL5LIB=lib perl po4a-translate $options -m $file -p po/pod/$lang.po -l blib/man/$file -a doc/addendum.$lang")
&& die;
if (-e "blib/man/$file") {
system("mkdir -p blib/man/$lang/man1") && die;
@@ -172,7 +174,7 @@
foreach $file (@{$self->rscan_dir('lib',qr{\.pm$})}) {
$file =~ /.*\/(.*)\.pm$/;
my $filename = $1;
- system("PERL5LIB=lib perl po4a-translate -v -f pod -m $file -p po/pod/$lang.po -l blib/man/$filename -a doc/addendum.$lang")
+ system("PERL5LIB=lib perl po4a-translate $options -m $file -p po/pod/$lang.po -l blib/man/$filename -a doc/addendum.$lang")
&& die;
if (-e "blib/man/$filename") {
system ("mkdir -p blib/man/$lang/man3") && die;
@@ -198,7 +200,7 @@
system ("gzip -9 -f blib/man/man7/$filename") && die;
foreach $lang (@langs) {
print "X Translate $file to $lang\n";
- system ("PERL5LIB=lib perl po4a-translate -f pod -v -m $file -p po/pod/$lang.po -l blib/man/$filename -a doc/addendum.$lang")
+ system ("PERL5LIB=lib perl po4a-translate $options -m $file -p po/pod/$lang.po -l blib/man/$filename -a doc/addendum.$lang")
&& die;
if (-e "blib/man/$filename") {
`mkdir -p blib/man/$lang/man7`;