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);