[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 = ();
}