Remove section number from the title for use in the

<meta name='description' ...> element in the document head.

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 6da39268fddae023a5caff209d72ade703845d22..6bf86f859c53221870f89a3801261f30867c52b1 100644 (file)
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -663,9 +663,14 @@ sub make_head_and_body($$) {
         $charset = $CHARSET;
         $charset =~ s/_/\-/go;
     }
+    # Remove section number from the title for use in the
+    # <meta name='description' ...> element in the document head.
+    my $metatitle = "$title";
+    $metatitle =~ s/^\d+(\.\d+)*\s*//;
+
     join('',
          $MY_PARTIAL_HEADER,
-         &meta_information($title),
+         &meta_information($metatitle),
          "<title>", $title, "</title>\n</head>\n<body$body>");
 }