diff options
| -rw-r--r-- | Doc/perl/l2hinit.perl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index edb6caa..1197531 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -634,6 +634,7 @@ sub make_head_and_body($$) { # . "\n" # : ''), $more_links_mark, + "\n", ($CHARSET && $HTML_VERSION ge "2.1" ? ('<meta http-equiv="Content-Type" content="text/html; ' . "charset=$CHARSET\">\n") @@ -641,9 +642,10 @@ sub make_head_and_body($$) { ($AESOP_META_TYPE ? "<meta name='aesop' content='$AESOP_META_TYPE'>\n" : '')); } - - if (!$charset && $CHARSET) { $charset = $CHARSET; $charset =~ s/_/\-/go; } - + if (!$charset && $CHARSET) { + $charset = $CHARSET; + $charset =~ s/_/\-/go; + } join('', $MY_PARTIAL_HEADER, &meta_information($title), |