Move Pod::Plainer from lib to ext

We can probably deprecate this from core. It seems to have been written to
"shore up pod2latex shortcomings" (d23ed1f2ad4fab0a) in March 2000, and 3
months later that was replaced with the Pod::LaTex on CPAN (076c2fc018b685ea),
so nothing in core uses it.

diff --git a/MANIFEST b/MANIFEST
index 0935005..cbf01e4 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1197,6 +1197,8 @@ ext/PerlIO-via/hints/aix.pl       Hint for PerlIO::via for named architecture
 ext/PerlIO-via/t/via.t         See if PerlIO::via works
 ext/PerlIO-via/via.pm          PerlIO layer for layers in perl
 ext/PerlIO-via/via.xs          PerlIO layer for layers in perl
+ext/Pod-Plainer/Plainer.pm     Pod migration utility module
+ext/Pod-Plainer/t/plainer.t    Test Pod::Plainer
 ext/POSIX/hints/bsdos.pl       Hint for POSIX for named architecture
 ext/POSIX/hints/dynixptx.pl    Hint for POSIX for named architecture
 ext/POSIX/hints/freebsd.pl     Hint for POSIX for named architecture
@@ -2935,7 +2937,6 @@ lib/Pod/Perldoc/ToTk.pm           convert POD via Tk::Pod
 lib/Pod/Perldoc/ToXml.pm       convert POD to XML
 lib/Pod/Perldoc/t/perldocbasic.t       test Pod::Perldoc basic operation
 lib/Pod/Perldoc/t/textbasic.t  test Pod::Perldoc::ToText
-lib/Pod/Plainer.pm             Pod migration utility module
 lib/Pod/PlainText.pm           Convert POD data to formatted ASCII text
 lib/Pod/Select.pm              Pod-Parser - select portions of POD docs
 lib/Pod/Simple/BlackBox.pm     Pod::Simple::BlackBox
@@ -4385,7 +4386,6 @@ t/pod/nested_seqs.xr              Expected results for nested_seqs.t
 t/pod/oneline_cmds.t           Test single paragraph ==cmds
 t/pod/oneline_cmds.xr          Expected results for oneline_cmds.t
 t/pod/p2u_data.pl              Test Pod::Usage
-t/pod/plainer.t                        Test Pod::Plainer
 t/pod/pod2usage2.t             Test Pod::Usage
 t/pod/pod2usage.t              Test Pod::Usage
 t/pod/pod2usage.xr             Expected results for pod2usage.t

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index c4e6dfa..c4c9e15 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1498,7 +1498,7 @@ package Maintainers;
     'Pod::Plainer' =>
        {
        'MAINTAINER'    => 'rmbarker',
-       'FILES'         => q[lib/Pod/Plainer.pm t/pod/plainer.t],
+       'FILES'         => q[ext/Pod-Plainer],
        'CPAN'          => 0,
        'UPSTREAM'      => 'blead',
        },

diff --git a/ext/.gitignore b/ext/.gitignore
index ead0418..d098737 100644 (file)
--- a/ext/.gitignore
+++ b/ext/.gitignore
@@ -30,6 +30,7 @@ ppport.h
 /PerlIO-encoding/Makefile.PL
 /PerlIO-scalar/Makefile.PL
 /PerlIO-via/Makefile.PL
+/Pod-Plainer/Makefile.PL
 /Shell/Makefile.PL
 /Switch/Makefile.PL
 /Sys-Hostname/Makefile.PL

diff --git a/lib/Pod/Plainer.pm b/ext/Pod-Plainer/Plainer.pm
similarity index 100%
rename from lib/Pod/Plainer.pm
rename to ext/Pod-Plainer/Plainer.pm

diff --git a/t/pod/plainer.t b/ext/Pod-Plainer/t/plainer.t
similarity index 97%
rename from t/pod/plainer.t
rename to ext/Pod-Plainer/t/plainer.t
index 293edbb..c6f178a 100644 (file)
--- a/t/pod/plainer.t
+++ b/ext/Pod-Plainer/t/plainer.t
@@ -1,7 +1,5 @@
 #!./perl
 
-BEGIN { chdir 't' if -d 't'; @INC = '../lib' }
-
 use Pod::Plainer;
 my $parser = Pod::Plainer->new();
 my $header = "=pod\n\n";

diff --git a/lib/.gitignore b/lib/.gitignore
index 1ee1e8c..7301bc9 100644 (file)
--- a/lib/.gitignore
+++ b/lib/.gitignore
@@ -58,6 +58,7 @@
 /Opcode.pm
 /POSIX.pm
 /POSIX.pod
+/Pod/Plainer.pm
 /PerlIO/encoding.pm
 /PerlIO/scalar.pm
 /PerlIO/via.pm