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>
(cherry picked from commit 12ce58bebd
)
Signed-off-by: Michael Niedermayer <michaelni@gmx.at>
This commit is contained in:
@@ -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";
|
||||||
|
Reference in New Issue
Block a user