[Po4a-commits] "po4a Build.PL,1.23,1.24"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv1258

Modified Files:
	Build.PL 
Log Message:
Program and manpages translation to Polish and the necessary fix to the
Build.PL script.
Thanks to Robert Luberda. Fixes #340877 in Debian.


Index: Build.PL
===================================================================
RCS file: /cvsroot/po4a/po4a/Build.PL,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- Build.PL	1 Nov 2005 21:22:18 -0000	1.23
+++ Build.PL	26 Nov 2005 22:26:29 -0000	1.24
@@ -133,7 +133,11 @@
 	    $self->depends_on('manpo');
 	    use Pod::Man;
 
-	    my $options = "-v -f pod -M utf-8 -L iso8859-1";
+	    my %charsets = ( 'default' => 'iso8859-1',
+	                     'pl'      => 'iso8859-2'
+			   );
+
+	    my $options = "-v -f pod -M utf-8";
 
 	    #get the languages
 	    my @langs = @{$self->rscan_dir('po/pod',qr{\.po$})};
@@ -152,9 +156,10 @@
 		center => "Po4a Tools", section => "1p");
 
 	    foreach $lang (@langs) {
+	        my $charset = defined $charsets{$lang} ? $charsets{$lang} : $charsets{'default'};
 		print ("X Translate binary manpages to $lang\n");
 		foreach $file (keys(%{$self->script_files()})) {
-		    system("PERL5LIB=lib perl po4a-translate $options -m $file -p po/pod/$lang.po -l blib/man/$file -a doc/addendum.$lang")
+		    system("PERL5LIB=lib perl po4a-translate $options -L $charset -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;
@@ -170,11 +175,12 @@
 		center => "Po4a Tools", section => "3pm");
 
 	    foreach $lang (@langs) {
+	        my $charset = defined $charsets{$lang} ? $charsets{$lang} : $charsets{'default'};
 		print ("X Translate module manpages to $lang\n");
 		foreach $file (@{$self->rscan_dir('lib',qr{\.pm$})}) {
 		    $file =~ /.*\/(.*)\.pm$/;
 		    my $filename = $1;
-		    system("PERL5LIB=lib perl po4a-translate $options -m $file -p po/pod/$lang.po -l blib/man/$filename -a doc/addendum.$lang")
+		    system("PERL5LIB=lib perl po4a-translate $options -L $charset -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;
@@ -199,8 +205,9 @@
 		$parser->parse_from_file ($file, "blib/man/man7/$filename");
 		system ("gzip -9 -f blib/man/man7/$filename") && die;
 		foreach $lang (@langs) {
+	            my $charset = defined $charsets{$lang} ? $charsets{$lang} : $charsets{'default'};
 		    print "X Translate $file to $lang\n";
-		    system ("PERL5LIB=lib perl po4a-translate $options -m $file -p po/pod/$lang.po -l blib/man/$filename -a doc/addendum.$lang")
+		    system ("PERL5LIB=lib perl po4a-translate $options -L $charset -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`;