From f06b90534bd917bb5628d8db4355517e69a2dac6 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Fri, 2 May 2003 18:08:16 +0000
Subject: [PATCH] Remove section number from the title for use in the <meta
 name='description' ...> element in the document head.

---
 Doc/perl/l2hinit.perl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 6da39268fd..6bf86f859c 100644
--- 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>");
 }
 
-- 
2.50.1