[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.64,1.65"

[Nicolas FRANCOIS]

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

Modified Files:
	Po.pm 
Log Message:
Fix another wrap / length calculation issue, this time for the generation
of the PO.


Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -d -r1.64 -r1.65
--- Po.pm	7 Oct 2006 19:43:35 -0000	1.64
+++ Po.pm	7 Oct 2006 20:33:28 -0000	1.65
@@ -298,8 +298,15 @@
 	    if    defined($self->{po}{$msgid}{'flags'})
 	       && length ($self->{po}{$msgid}{'flags'});
 
-	$output .= "msgid ".quote_text($msgid)."\n";
-	$output .= "msgstr ".quote_text($self->{po}{$msgid}{'msgstr'})."\n";
+	if ($self->get_charset =~ /^utf-8$/i) {
+	    my $msgstr = Encode::decode_utf8($self->{po}{$msgid}{'msgstr'});
+	    $msgid = Encode::decode_utf8($msgid);
+	    $output .= Encode::encode_utf8("msgid ".quote_text($msgid)."\n");
+	    $output .= Encode::encode_utf8("msgstr ".quote_text($msgstr)."\n");
+	} else {
+	    $output .= "msgid ".quote_text($msgid)."\n";
+	    $output .= "msgstr ".quote_text($self->{po}{$msgid}{'msgstr'})."\n";
+	}
 	print $fh $output;
     }   
 #    print STDERR "$fh";