summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Pod/Simple/HTML.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Pod/Simple/HTML.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Pod/Simple/HTML.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Pod/Simple/HTML.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Pod/Simple/HTML.pm
index 0219b97910..f930a51217 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Pod/Simple/HTML.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Pod/Simple/HTML.pm
@@ -9,7 +9,7 @@ use vars qw(
$Doctype_decl $Content_decl
);
@ISA = ('Pod::Simple::PullParser');
-$VERSION = '3.40';
+$VERSION = '3.42';
BEGIN {
if(defined &DEBUG) { } # no-op
elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG }
@@ -109,10 +109,14 @@ my @_to_accept;
'head2' => "\n<h2>", # ''
'head3' => "\n<h3>", # ''
'head4' => "\n<h4>", # ''
+ 'head5' => "\n<h5>", # ''
+ 'head6' => "\n<h6>", # ''
'/head1' => "</a></h1>\n",
'/head2' => "</a></h2>\n",
'/head3' => "</a></h3>\n",
'/head4' => "</a></h4>\n",
+ '/head5' => "</a></h5>\n",
+ '/head6' => "</a></h6>\n",
'X' => "<!--\n\tINDEX: ",
'/X' => "\n-->",
@@ -224,7 +228,7 @@ sub __adjust_html_h_levels {
return if ($self->{'Adjusted_html_h_levels'}||0) == $add;
$add -= 1;
- for (1 .. 4) {
+ for (1 .. 6) {
$Tagmap->{"head$_"} =~ s/$_/$_ + $add/e;
$Tagmap->{"/head$_"} =~ s/$_/$_ + $add/e;
}
@@ -323,7 +327,7 @@ sub version_tag_comment {
"<!--\n generated by %s v%s,\n using %s v%s,\n under Perl v%s at %s GMT.\n\n %s\n\n-->\n",
esc(
ref($self), $self->VERSION(), $ISA[0], $ISA[0]->VERSION(),
- $], scalar(gmtime),
+ $], scalar(gmtime($ENV{SOURCE_DATE_EPOCH} || time)),
), $self->_modnote(),
;
}