[Po4a-commits] "po4a/lib/Locale/Po4a TransTractor.pm,1.86,1.87"

[Nicolas FRANCOIS]

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