[Po4a-commits] po4a/lib/Locale/Po4a TeX.pm,1.44,1.45 TransTractor.pm,1.58,1.59

Nicolas FRAN??OIS po4a-devel@lists.alioth.debian.org
Sun, 27 Feb 2005 00:05:04 +0000


Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv30056/lib/Locale/Po4a

Modified Files:
	TeX.pm TransTractor.pm 
Log Message:
Change comments encoding in TransTractor rather than TeX.
See the thread (Encoding issue):
http://lists.alioth.debian.org/pipermail/po4a-devel/2005-February/000772.html


Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -d -r1.58 -r1.59
--- TransTractor.pm	14 Feb 2005 23:19:24 -0000	1.58
+++ TransTractor.pm	27 Feb 2005 00:05:01 -0000	1.59
@@ -846,6 +846,9 @@
 	}
 	if ( $in_charset !~ /^$out_charset$/i ) {
 	    Encode::from_to($string,$in_charset,$out_charset);
+	    if (defined($options{'comment'}) and length($options{'comment'})) {
+		Encode::from_to($options{'comment'},$in_charset,$out_charset);
+	    }
 	}
     }
 

Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- TeX.pm	26 Feb 2005 17:50:18 -0000	1.44
+++ TeX.pm	27 Feb 2005 00:05:01 -0000	1.45
@@ -318,8 +318,6 @@
     if (@comments) {
         $options{'comment'} .= join('\n', @comments);
 
-        # encode the comments to the po charset.
-        Encode::from_to($options{'comment'},$self->{TT}{'file_in_charset'},$self->{TT}{po_out}->get_charset);
         @comments = ();
     }