diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Simple/HTML.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Pod/Simple/HTML.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Simple/HTML.pm b/Master/tlpkg/tlperl/lib/Pod/Simple/HTML.pm index 9d7d069645a..12fad403589 100644 --- a/Master/tlpkg/tlperl/lib/Pod/Simple/HTML.pm +++ b/Master/tlpkg/tlperl/lib/Pod/Simple/HTML.pm @@ -10,7 +10,7 @@ use vars qw( $Doctype_decl $Content_decl ); @ISA = ('Pod::Simple::PullParser'); -$VERSION = '3.16'; +$VERSION = '3.20'; BEGIN { if(defined &DEBUG) { } # no-op @@ -491,8 +491,11 @@ sub _do_middle_main_loop { $name = $self->do_section($name, $token) if defined $name; print $fh "<a "; - print $fh "class='u' href='#___top' title='click to go to top of document'\n" - if $tagname =~ m/^head\d$/s; + if ($tagname =~ m/^head\d$/s) { + print $fh "class='u'", $self->index + ? " href='#___top' title='click to go to top of document'\n" + : "\n"; + } if(defined $name) { my $esc = esc( $self->section_name_tidy( $name ) ); |