[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.86,1.87"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv31975/lib/Locale/Po4a

Modified Files:
	Po.pm 
Log Message:
Do not unescape_text() the header comment, since it is not escaped by
push_raw(). Do not escape the header comment of created PO files, to match
the way push_raw() behave when a PO file is parsed. This fix msguntypot
(see Debian's bug #447656).


Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -d -r1.86 -r1.87
--- Po.pm	13 Jan 2008 13:40:08 -0000	1.86
+++ Po.pm	13 Jan 2008 20:48:22 -0000	1.87
@@ -171,14 +171,14 @@
     # (duplicate strings counted multiple times)
     $self->{count_doc}=0;
     $self->{header_comment}=
-        escape_text( " SOME DESCRIPTIVE TITLE\n"
+                     " SOME DESCRIPTIVE TITLE\n"
                     ." Copyright (C) YEAR ".
                      $self->{options}{'copyright-holder'}."\n"
                     ." This file is distributed under the same license ".
                      "as the PACKAGE package.\n"
                     ." FIRST AUTHOR <EMAIL\@ADDRESS>, YEAR.\n"
                     ."\n"
-                    .", fuzzy");
+                    .", fuzzy";
 #    $self->header_tag="fuzzy";
     $self->{header}=escape_text("Project-Id-Version: PACKAGE VERSION\n".
                         ((defined $self->{options}{'msgid-bugs-address'})?
@@ -370,7 +370,7 @@
                               $filename, $!);
     }
 
-    print $fh "".format_comment(unescape_text($self->{header_comment}),"")
+    print $fh "".format_comment($self->{header_comment},"")
         if defined($self->{header_comment}) && length($self->{header_comment});
 
     print $fh "msgid \"\"\n";