[Po4a-commits] r2255 - /trunk/lib/Locale/Po4a/TransTractor.pm

[barbier-guest at users.alioth.debian.org]

Author: barbier-guest
Date: Thu Sep 23 19:07:20 2010
New Revision: 2255

URL: http://svn.debian.org/wsvn/po4a/?sc=1&rev=2255
Log:
Remove trailing carriage returns when reading input files

Otherwise they are written into PO files when reading a
DOS file under Unix.

Modified:
    trunk/lib/Locale/Po4a/TransTractor.pm

Modified: trunk/lib/Locale/Po4a/TransTractor.pm
URL: http://svn.debian.org/wsvn/po4a/trunk/lib/Locale/Po4a/TransTractor.pm?rev=2255&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/TransTractor.pm (original)
+++ trunk/lib/Locale/Po4a/TransTractor.pm Thu Sep 23 19:07:20 2010
@@ -415,6 +415,7 @@
     while (defined (my $textline = <INPUT>)) {
 	$linenum++;
 	my $ref="$filename:$linenum";
+	$textline =~ s/\r$//;
 	my @entry=($textline,$ref);
 	push @{$self->{TT}{doc_in}}, @entry;