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

[Nicolas FRANCOIS]

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, $!);