From 42ba911e936f3a2e8a552fe70a1b360a63671a49 Mon Sep 17 00:00:00 2001
From: Dominic Hargreaves <dom@earth.li>
Date: Thu, 22 Dec 2011 22:30:53 +0000
Subject: Fix POD formatting in Term-Cap and Pod-Parser

Bug: https://rt.cpan.org/Public/Bug/Display.html?id=73446
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=73447
Bug: https://rt.perl.org/rt3/Public/Bug/Display.html?id=106870

Origin: https://rt.perl.org/rt3/Public/Bug/Display.html?id=106870#txn-1043290

Patch-Name: fixes/cpan_module_pod_fixes.diff
---
 cpan/Pod-Parser/lib/Pod/InputObjects.pm | 8 ++++++--
 cpan/Term-Cap/Cap.pm                    | 4 ++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/cpan/Pod-Parser/lib/Pod/InputObjects.pm b/cpan/Pod-Parser/lib/Pod/InputObjects.pm
index 13a8618..527e442 100644
--- a/cpan/Pod-Parser/lib/Pod/InputObjects.pm
+++ b/cpan/Pod-Parser/lib/Pod/InputObjects.pm
@@ -39,10 +39,10 @@ This module defines some basic input objects used by B<Pod::Parser> when
 reading and parsing POD text from an input source. The following objects
 are defined:
 
-=over 4
-
 =begin __PRIVATE__
 
+=over 4
+
 =item package B<Pod::InputSource>
 
 An object corresponding to a source of POD input text. It is mostly a
@@ -50,8 +50,12 @@ wrapper around a filehandle or C<IO::Handle>-type object (or anything
 that implements the C<getline()> method) which keeps track of some
 additional information relevant to the parsing of PODs.
 
+=back
+
 =end __PRIVATE__
 
+=over 4
+
 =item package B<Pod::Paragraph>
 
 An object corresponding to a paragraph of POD input text. It may be a
diff --git a/cpan/Term-Cap/Cap.pm b/cpan/Term-Cap/Cap.pm
index 004a03c..82f4071 100644
--- a/cpan/Term-Cap/Cap.pm
+++ b/cpan/Term-Cap/Cap.pm
@@ -86,8 +86,6 @@ termcap manpage on most Unix-like systems.
 
 =head2 METHODS
 
-=over 4
-
 The output strings for B<Tputs> are cached for counts of 1 for performance.
 B<Tgoto> and B<Tpad> do not cache.  C<$self-E<gt>{_xx}> is the raw termcap
 data and C<$self-E<gt>{xx}> is the cached version.
@@ -145,6 +143,8 @@ sub termcap_path
     return grep { defined $_ && -f $_ } @termcap_path;
 }
 
+=over 4
+
 =item B<Tgetent>
 
 Returns a blessed object reference which the user can