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 6da3926..6bf86f8 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -663,9 +663,14 @@
$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>");
}