[Po4a-commits] po4a po4a,1.17,1.18

[Jordi Vilalta]

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

Modified Files:
	po4a 
Log Message:
Small encoding improvement + cleaning


Index: po4a
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- po4a	16 Aug 2004 23:41:08 -0000	1.17
+++ po4a	17 Aug 2004 22:20:52 -0000	1.18
@@ -318,13 +318,15 @@
 my $potfile=Locale::Po4a::Po->new();
 foreach my $master (keys %document) {
     my $doc=Locale::Po4a::Chooser::new($document{$master}{'format'},%options);
+    # We ensure that the generated po will be in utf-8 if the input document
+    # isn't entirely in ascii
+    $doc->{TT}{utf_mode} = 1;
     
     $doc->setpoout($potfile);
     my @file_in_name;
     push @file_in_name, $master;
     $doc->process('file_in_name'     => \@file_in_name,
-                  'file_in_charset'  => $mastchar,
-                  'addendum_charset' => $addchar);
+                  'file_in_charset'  => $mastchar);
     $potfile = $doc->getpoout();
 }
 $potfile->write($pot_filename);