[Po4a-commits] "po4a/lib/Locale/Po4a TransTractor.pm,1.88,1.89"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Thu Feb 15 00:02:14 CET 2007
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv7413/lib/Locale/Po4a
Modified Files:
TransTractor.pm
Log Message:
Reindent.
Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -d -r1.88 -r1.89
--- TransTractor.pm 14 Feb 2007 22:56:21 -0000 1.88
+++ TransTractor.pm 14 Feb 2007 23:02:12 -0000 1.89
@@ -398,17 +398,17 @@
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);
- if (!ref($decoder) or $decoder !~ /Encode::XS=/) {
- # We have detected a non-ascii line
- $self->{TT}{ascii_input} = 0;
- # Save the reference for future error message
- $self->{TT}{non_ascii_ref} ||= $ref;
+ # Detect if this file has non-ascii characters
+ if($self->{TT}{ascii_input}) {
+ my $decoder = guess_encoding($textline);
+ if (!ref($decoder) or $decoder !~ /Encode::XS=/) {
+ # We have detected a non-ascii line
+ $self->{TT}{ascii_input} = 0;
+ # Save the reference for future error message
+ $self->{TT}{non_ascii_ref} ||= $ref;
+ }
}
}
- }
}
close INPUT
or croak wrap_msg(dgettext("po4a", "Can't close %s after reading: %s"), $filename, $!);
More information about the Po4a-commits
mailing list