diff options
author | James E Keenan <jkeenan@cpan.org> | 2021-03-15 00:41:49 +0000 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2021-07-06 01:08:03 +0000 |
commit | 5cae71e5baf19f8c46e55ab0222d90a874b66726 (patch) | |
tree | 59b855f6b475103789ee8f262cf919aa3f624f11 | |
parent | e6a748aad5d10020f861c87e5fd37e167d6257c3 (diff) | |
download | perl-5cae71e5baf19f8c46e55ab0222d90a874b66726.tar.gz |
Remove last hard-tabs from Html.pm
Signed-off-by: James E Keenan <jkeenan@cpan.org>
-rw-r--r-- | ext/Pod-Html/lib/Pod/Html.pm | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm index d9f343d5c8..d2b2d8c051 100644 --- a/ext/Pod-Html/lib/Pod/Html.pm +++ b/ext/Pod-Html/lib/Pod/Html.pm @@ -328,7 +328,6 @@ sub pod2html { } print $cache "$key $Pages{$key}\n"; } - close $cache or die "error closing $globals->{Dircache}: $!"; } @@ -357,18 +356,18 @@ sub pod2html { my $podtree = $parser->parse_file($input)->root; unless(defined $globals->{Title}) { - if($podtree->[0] eq "Document" && ref($podtree->[2]) eq "ARRAY" && - $podtree->[2]->[0] eq "head1" && @{$podtree->[2]} == 3 && - ref($podtree->[2]->[2]) eq "" && $podtree->[2]->[2] eq "NAME" && - ref($podtree->[3]) eq "ARRAY" && $podtree->[3]->[0] eq "Para" && - @{$podtree->[3]} >= 3 && - !(grep { ref($_) ne "" } - @{$podtree->[3]}[2..$#{$podtree->[3]}]) && - (@$podtree == 4 || - (ref($podtree->[4]) eq "ARRAY" && - $podtree->[4]->[0] eq "head1"))) { - $globals->{Title} = join("", @{$podtree->[3]}[2..$#{$podtree->[3]}]); - } + if($podtree->[0] eq "Document" && ref($podtree->[2]) eq "ARRAY" && + $podtree->[2]->[0] eq "head1" && @{$podtree->[2]} == 3 && + ref($podtree->[2]->[2]) eq "" && $podtree->[2]->[2] eq "NAME" && + ref($podtree->[3]) eq "ARRAY" && $podtree->[3]->[0] eq "Para" && + @{$podtree->[3]} >= 3 && + !(grep { ref($_) ne "" } + @{$podtree->[3]}[2..$#{$podtree->[3]}]) && + (@$podtree == 4 || + (ref($podtree->[4]) eq "ARRAY" && + $podtree->[4]->[0] eq "head1"))) { + $globals->{Title} = join("", @{$podtree->[3]}[2..$#{$podtree->[3]}]); + } } $globals->{Title} //= ""; |