From 7091698ebb50686345915f8beefcbd06d8e0ac87 Mon Sep 17 00:00:00 2001
From: James E Keenan <jkeenan@cpan.org>
Date: Wed, 12 May 2021 12:53:01 +0000
Subject: [PATCH] Rename one method per suggestion from rjbs

---
 ext/Pod-Html/lib/Pod/Html.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm
index defc2253b7e1..0ebbf2b879b3 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" &&