|
|
@@ -324,6 +324,8 @@ $sects{FOOTNOTES} .= "=back\n" if exists $sects{FOOTNOTES}; |
|
|
|
|
|
|
|
|
unshift @sects_sequence, "NAME"; |
|
|
unshift @sects_sequence, "NAME"; |
|
|
for $sect (@sects_sequence) { |
|
|
for $sect (@sects_sequence) { |
|
|
|
|
|
# always use utf8 |
|
|
|
|
|
print "=encoding utf8\n"; |
|
|
if(exists $sects{$sect}) { |
|
|
if(exists $sects{$sect}) { |
|
|
$head = $sect; |
|
|
$head = $sect; |
|
|
$head =~ s/SEEALSO/SEE ALSO/; |
|
|
$head =~ s/SEEALSO/SEE ALSO/; |
|
|
|