[Po4a-commits] "po4a/lib/Locale/Po4a Pod.pm,1.21,1.22"

[Nicolas FRANCOIS]

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

Modified Files:
	Pod.pm 
Log Message:
	* NEWS, lib/Locale/Po4a/Pod.pm: Announce the encoding in the POD
	header.


Index: Pod.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Pod.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- Pod.pm	13 Jun 2006 19:57:17 -0000	1.21
+++ Pod.pm	9 Feb 2009 23:11:56 -0000	1.22
@@ -145,6 +145,14 @@
 }
 
 sub docheader {
+    my $self=shift;
+    my $encoding = $self->{TT}{file_out_charset};
+    if (defined $encoding) {
+        $encoding = "\n=encoding $encoding\n";
+    } else {
+        $encoding = "";
+    }
+
     return <<EOT;
 
         *****************************************************
@@ -157,7 +165,7 @@
 
 In fact, consider this as a binary, and the po file as a regular .c file:
 If the po get lost, keeping this translation up-to-date will be harder.
-
+$encoding
 EOT
 }
 1;