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

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv22790/lib/Locale/Po4a

Modified Files:
	TransTractor.pm 
Log Message:
Do not try to guess the encoding if the encoding was provided (speed up).


Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -d -r1.87 -r1.88
--- TransTractor.pm	14 Feb 2007 22:50:56 -0000	1.87
+++ TransTractor.pm	14 Feb 2007 22:56:21 -0000	1.88
@@ -397,6 +397,7 @@
 	my @entry=($textline,$ref);
 	push @{$self->{TT}{doc_in}}, @entry;
 
+	if (!defined($self->{TT}{'file_in_charset'})) {
 	# Detect if this file has non-ascii characters
 	if($self->{TT}{ascii_input}) {
 	    my $decoder = guess_encoding($textline);
@@ -407,6 +408,7 @@
 		$self->{TT}{non_ascii_ref} ||= $ref;
 	    }
 	}
+        }
     }
     close INPUT 
 	or croak wrap_msg(dgettext("po4a", "Can't close %s after reading: %s"), $filename, $!);