Browse Source

doc/texi2pod: fix encoding type

docs say:
'A document having more than one "=encoding" line should be considered an error. '

Signed-off-by: Michael Niedermayer <michaelni@gmx.at>
Michael Niedermayer 11 years ago
parent
commit
12ce58bebd
1 changed files with 3 additions and 2 deletions
  1. 3 2
      doc/texi2pod.pl

+ 3 - 2
doc/texi2pod.pl

@@ -327,10 +327,11 @@ die "No filename or title\n" unless defined $fn && defined $tl;
 $chapters{NAME} = "$fn \- $tl\n";
 $chapters{NAME} = "$fn \- $tl\n";
 $chapters{FOOTNOTES} .= "=back\n" if exists $chapters{FOOTNOTES};
 $chapters{FOOTNOTES} .= "=back\n" if exists $chapters{FOOTNOTES};
 
 
+# always use utf8
+print "=encoding utf8\n\n";
+
 unshift @chapters_sequence, "NAME";
 unshift @chapters_sequence, "NAME";
 for $chapter (@chapters_sequence) {
 for $chapter (@chapters_sequence) {
-    # always use utf8
-    print "=encoding utf8\n";
     if (exists $chapters{$chapter}) {
     if (exists $chapters{$chapter}) {
         $head = uc($chapter);
         $head = uc($chapter);
         print "=head1 $head\n\n";
         print "=head1 $head\n\n";