diff options
| author | Fred Drake <fdrake@acm.org> | 2002-10-30 19:55:23 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 2002-10-30 19:55:23 (GMT) |
| commit | 0e2e687ba06eb30693dac16ba3e7deb4e9475a2e (patch) | |
| tree | 148142ced487ccd0335947d49141b215f3c8fe46 /Doc/perl | |
| parent | 4e303aad05d5133aee6465e7a953e9b54410ecec (diff) | |
| download | cpython-0e2e687ba06eb30693dac16ba3e7deb4e9475a2e.zip cpython-0e2e687ba06eb30693dac16ba3e7deb4e9475a2e.tar.gz cpython-0e2e687ba06eb30693dac16ba3e7deb4e9475a2e.tar.bz2 | |
Minor rearranging.
Diffstat (limited to 'Doc/perl')
| -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), |