[Po4a-commits] po4a Build.PL,1.17,1.18
Jordi Vilalta
po4a-devel@lists.alioth.debian.org
Sun, 27 Feb 2005 01:23:51 +0000
Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv26882
Modified Files:
Build.PL
Log Message:
Avoid the hardcoded '/usr/share' paths
Index: Build.PL
===================================================================
RCS file: /cvsroot/po4a/po4a/Build.PL,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- Build.PL 13 Feb 2005 23:06:44 -0000 1.17
+++ Build.PL 27 Feb 2005 01:23:48 -0000 1.18
@@ -18,17 +18,17 @@
}
sub ACTION_install {
my $self = shift;
-
+
require ExtUtils::Install;
# $self->depends_on('build');
-
+
ExtUtils::Install::install($self->install_map, 1, 0, $self->{args}{uninst}||0);
}
sub ACTION_binpo {
my $self = shift;
-
+
my @files = sort((keys(%{$self->script_files()}), @{$self->rscan_dir('lib',qr{\.pm$})}));
-
+
unless ($self->up_to_date(\@files, "po/bin/po4a.pot")) {
print "XX Update po/bin/po4a.pot\n";
my $podfiles = join ("", map {" ../../".$_ } @files);
@@ -56,7 +56,7 @@
next if m|/.#|;
$_ =~ /.*\/(.*)\.po$/;
my $lang = $1;
-
+
unless ($self->up_to_date("po/bin/po4a.pot","po/bin/$lang.po")) {
print "XX Sync po/bin/$lang.po: ";
system("msgmerge po/bin/$lang.po po/bin/po4a.pot -o po/bin/$lang.po.new") && die;
@@ -84,7 +84,7 @@
}
sub ACTION_manpo {
my $self = shift;
-
+
# update pot
my @files = sort((keys(%{$self->script_files()}), @{$self->rscan_dir('lib',qr{\.pm$})}, @{$self->rscan_dir('doc',qr{\.pod$})}));
unless ($self->up_to_date(\@files, "po/pod/po4a-pod.pot")) {
@@ -94,20 +94,20 @@
&& die;
my ($atime, $mtime) = (time,time);
utime $atime, $mtime, "po/pod/po4a-pod.pot";
-
+
} else {
print "XX Documentation pot file uptodate.\n";
}
-
+
# update languages
@files = @{$self->rscan_dir('po/pod',qr{\.po$})};
foreach (@files) {
$_ =~ /.*\/(.*)\.po$/;
my $lang = $1;
-
+
unless ($self->up_to_date("po/pod/po4a-pod.pot","po/pod/$lang.po")) {
print "XX Update documentation $lang.po: ";
-
+
system("msgmerge po/pod/$lang.po po/pod/po4a-pod.pot -o po/pod/$lang.po.new")
&& die;
@@ -129,12 +129,12 @@
}
sub ACTION_man {
my $self = shift;
-
+
$self->depends_on('manpo');
use Pod::Man;
my $options = "-v -f pod -M utf-8 -L iso8859-1";
-
+
#get the languages
my @langs = @{$self->rscan_dir('po/pod',qr{\.po$})};
my $i=0;
@@ -143,14 +143,14 @@
$langs[$i] = $1;
$i++;
}
-
+
system("rm -rf blib/man") && die;
system("mkdir -p blib/man") && die;
-
+
# Translate binaries manpages
my $parser = Pod::Man->new (release => "Po4a Tools",
center => "Po4a Tools", section => "1p");
-
+
foreach $lang (@langs) {
print ("X Translate binary manpages to $lang\n");
foreach $file (keys(%{$self->script_files()})) {
@@ -164,11 +164,11 @@
}
}
}
-
+
# Translate modules manpages
$parser = Pod::Man->new (release => "Po4a Tools",
center => "Po4a Tools", section => "3pm");
-
+
foreach $lang (@langs) {
print ("X Translate module manpages to $lang\n");
foreach $file (@{$self->rscan_dir('lib',qr{\.pm$})}) {
@@ -186,11 +186,11 @@
}
}
}
-
+
# Translate docs manpages
$parser = Pod::Man->new (release => "Po4a Tools",
center => "Po4a Tools", section => 7);
-
+
foreach $file (@{$self->rscan_dir('doc',qr{\.pod$})}) {
$file =~ /.*\/(.*)\.pod$/;
my $filename = $1;
@@ -246,6 +246,10 @@
},
);
+my $base= $Config::Config{man1dir};
+$base =~ s/\/man\/man1//;
+print $base;
+
my $b = $builder->new
( module_name => 'po4a',
license => 'gpl',
@@ -256,8 +260,7 @@
'po4a-translate', 'po4a-normalize', 'po4a'],
add_to_cleanup => ['t/tmp','messages.mo', 'blib', 'html',
'po/pod/po4a-pod.pot~', 'po4a.log'],
- install_path => {po => '/usr/share/locale',
- man => '/usr/share/man'},
+ install_path => {po => $base.'/locale', man => $base.'/man'},
dist_abstract => 'Tools for helping translation of documentation',
dist_author => ['Martin Quinson <martin.quinson@tuxfamily.org>',
'Denis Barbier <barbier@linuxfr.org>']