[Po4a-commits] "po4a/lib/Locale/Po4a TransTractor.pm,1.86,1.87"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Wed Feb 14 23:50:58 CET 2007
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv19497/lib/Locale/Po4a
Modified Files:
TransTractor.pm
Log Message:
Set ascii_input to 0 in case of non ascii charset. (every times
file_in_charset is modified).
Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -d -r1.86 -r1.87
--- TransTractor.pm 14 Feb 2007 22:39:32 -0000 1.86
+++ TransTractor.pm 14 Feb 2007 22:50:56 -0000 1.87
@@ -283,6 +283,11 @@
$self->{TT}{'file_in_charset'}=$params{'file_in_charset'};
$self->{TT}{'file_out_charset'}=$params{'file_out_charset'};
$self->{TT}{'addendum_charset'}=$params{'addendum_charset'};
+ if (defined $self->{TT}{'file_in_charset'} and
+ length $self->{TT}{'file_in_charset'} and
+ $self->{TT}{'file_in_charset'} !~ m/ascii/i) {
+ $self->{TT}{ascii_input}=0;
+ }
foreach my $file (@{$params{'po_in_name'}}) {
print STDERR "readpo($file)... " if $self->debug();
@@ -926,6 +931,11 @@
$self->{TT}{'file_in_charset'}=$charset;
}
+ if (defined $self->{TT}{'file_in_charset'} and
+ length $self->{TT}{'file_in_charset'} and
+ $self->{TT}{'file_in_charset'} !~ m/ascii/i) {
+ $self->{TT}{ascii_input}=0;
+ }
}
=item get_out_charset()
More information about the Po4a-commits
mailing list