Rename one method per suggestion from rjbs

Perl · Jun 29, 2021 · 7091698 · 7091698
1 parent 6b0052b
commit 7091698
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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" &&