From 0e2e687ba06eb30693dac16ba3e7deb4e9475a2e Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 30 Oct 2002 19:55:23 +0000
Subject: Minor rearranging.

---
 Doc/perl/l2hinit.perl | 8 +++++---
 1 file 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),
-- 
cgit v0.12