diff options
author | James E Keenan <jkeenan@cpan.org> | 2021-05-12 12:53:01 +0000 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2021-07-06 01:08:03 +0000 |
commit | 8405b171b4f19b2f4cc493ef3ef6871c2bd5147f (patch) | |
tree | 33ef38fec4679409bfa05792bab70daff67bddf9 /ext | |
parent | 072fb5ad1cd4a5c18cef31dfdfb6cc7c80bd2a5d (diff) | |
download | perl-8405b171b4f19b2f4cc493ef3ef6871c2bd5147f.tar.gz |
Rename one method per suggestion from rjbs
Diffstat (limited to 'ext')
-rw-r--r-- | ext/Pod-Html/lib/Pod/Html.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm index defc2253b7..0ebbf2b879 100644 --- a/ext/Pod-Html/lib/Pod/Html.pm +++ b/ext/Pod-Html/lib/Pod/Html.pm @@ -326,7 +326,7 @@ sub pod2html { } my $podtree = parse_input_for_podtree($globals, $input); - $globals->{Title} = set_Title($globals, $podtree); + $globals->{Title} = set_Title_from_podtree($globals, $podtree); # set options for the HTML generator my $parser = Pod::Simple::XHTML::LocalPodLinks->new(); @@ -435,7 +435,7 @@ sub parse_input_for_podtree { return $podtree; } -sub set_Title { +sub set_Title_from_podtree { my ($globals, $podtree) = @_; unless(defined $globals->{Title}) { if($podtree->[0] eq "Document" && ref($podtree->[2]) eq "ARRAY" && |