Move Pod::Html from lib/ to ext/

diff --git a/MANIFEST b/MANIFEST
index 6ab6a86..cf171b5 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -3240,6 +3240,14 @@ 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-Html/Html.pm           Convert POD data to HTML
+ext/Pod-Html/t/htmlescp.pod    pod2html escape test input data
+ext/Pod-Html/t/htmlescp.t      pod2html escape test
+ext/Pod-Html/t/htmllink.pod    pod2html link test input data
+ext/Pod-Html/t/htmllink.t      pod2html link test
+ext/Pod-Html/t/htmlview.pod    pod2html render test input data
+ext/Pod-Html/t/htmlview.t      pod2html render test
+ext/Pod-Html/t/pod2html-lib.pl pod2html testing library
 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
@@ -3668,17 +3676,9 @@ lib/perl5db/t/symbol-table-bug   Tests for the Perl debugger
 lib/perl5db/t/taint            Tests for the Perl debugger
 lib/PerlIO.pm                  PerlIO support module
 lib/Pod/Functions.pm           used by pod/splitpod
-lib/Pod/Html.pm                        Convert POD data to HTML
 lib/Pod/t/eol.t                        end of line agnosticism
 lib/Pod/t/Functions.t          See if Pod::Functions works
-lib/Pod/t/htmlescp.pod         pod2html escape test input data
-lib/Pod/t/htmlescp.t           pod2html escape test
-lib/Pod/t/htmllink.pod         pod2html link test input data
-lib/Pod/t/htmllink.t           pod2html link test
-lib/Pod/t/htmlview.pod         pod2html render test input data
-lib/Pod/t/htmlview.t           pod2html render test
 lib/Pod/t/InputObjects.t       See if Pod::InputObjects works
-lib/Pod/t/pod2html-lib.pl      pod2html testing library
 lib/Pod/t/Select.t             See if Pod::Select works
 lib/Pod/t/Usage.t              See if Pod::Usage works
 lib/Pod/t/utils.t              Test for Pod::ParseUtils

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index e8243c4..da78945 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1687,6 +1687,7 @@ use File::Glob qw(:case);
                                ext/ODBM_File/
                                ext/Opcode/
                                ext/POSIX/
+                               ext/Pod-Html/
                                ext/PerlIO-encoding/
                                ext/PerlIO-scalar/
                                ext/PerlIO-via/
@@ -1739,14 +1740,11 @@ use File::Glob qw(:case);
                                lib/Net/servent.{pm,t}
                                lib/PerlIO.pm
                                lib/Pod/Functions.pm
-                               lib/Pod/Html.pm
                                lib/Pod/t/Functions.t
                                lib/Pod/t/InputObjects.t
                                lib/Pod/t/Select.t
                                lib/Pod/t/Usage.t
                                lib/Pod/t/eol.t
-                               lib/Pod/t/html*
-                               lib/Pod/t/pod2html-lib.pl
                                lib/Pod/t/utils.t
                                lib/Search/Dict.{pm,t}
                                lib/SelectSaver.{pm,t}

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

diff --git a/lib/Pod/t/htmlescp.pod b/ext/Pod-Html/t/htmlescp.pod
similarity index 100%
rename from lib/Pod/t/htmlescp.pod
rename to ext/Pod-Html/t/htmlescp.pod

diff --git a/lib/Pod/t/htmlescp.t b/ext/Pod-Html/t/htmlescp.t
similarity index 91%
rename from lib/Pod/t/htmlescp.t
rename to ext/Pod-Html/t/htmlescp.t
index 95942cd..3314829 100644 (file)
--- a/lib/Pod/t/htmlescp.t
+++ b/ext/Pod-Html/t/htmlescp.t
@@ -1,10 +1,7 @@
 #!/usr/bin/perl -w                                         # -*- perl -*-
 
 BEGIN {
-   chdir 't' if -d 't';
-   unshift @INC, '../lib';
-   unshift @INC, '../lib/Pod/t';
-   require "pod2html-lib.pl";
+    require "t/pod2html-lib.pl";
 }
 
 use strict;

diff --git a/lib/Pod/t/htmllink.pod b/ext/Pod-Html/t/htmllink.pod
similarity index 100%
rename from lib/Pod/t/htmllink.pod
rename to ext/Pod-Html/t/htmllink.pod

diff --git a/lib/Pod/t/htmllink.t b/ext/Pod-Html/t/htmllink.t
similarity index 96%
rename from lib/Pod/t/htmllink.t
rename to ext/Pod-Html/t/htmllink.t
index ab11796..592fef3 100644 (file)
--- a/lib/Pod/t/htmllink.t
+++ b/ext/Pod-Html/t/htmllink.t
@@ -1,10 +1,7 @@
 #!/usr/bin/perl -w                                         # -*- perl -*-
 
 BEGIN {
-    chdir 't' if -d 't';
-    unshift @INC, '../lib';
-    unshift @INC, '../lib/Pod/t';
-    require "pod2html-lib.pl";
+    require "t/pod2html-lib.pl";
 }
 
 use strict;

diff --git a/lib/Pod/t/htmlview.pod b/ext/Pod-Html/t/htmlview.pod
similarity index 100%
rename from lib/Pod/t/htmlview.pod
rename to ext/Pod-Html/t/htmlview.pod

diff --git a/lib/Pod/t/htmlview.t b/ext/Pod-Html/t/htmlview.t
similarity index 97%
rename from lib/Pod/t/htmlview.t
rename to ext/Pod-Html/t/htmlview.t
index 03fe6e5..dc15c6b 100644 (file)
--- a/lib/Pod/t/htmlview.t
+++ b/ext/Pod-Html/t/htmlview.t
@@ -1,10 +1,7 @@
 #!/usr/bin/perl -w                                         # -*- perl -*-
 
 BEGIN {
-   chdir 't' if -d 't';
-   unshift @INC, '../lib';
-   unshift @INC, '../lib/Pod/t';
-   require "pod2html-lib.pl";
+    require "t/pod2html-lib.pl";
 }
 
 use strict;

diff --git a/lib/Pod/t/pod2html-lib.pl b/ext/Pod-Html/t/pod2html-lib.pl
similarity index 91%
rename from lib/Pod/t/pod2html-lib.pl
rename to ext/Pod-Html/t/pod2html-lib.pl
index db33f7d..2259d45 100644 (file)
--- a/lib/Pod/t/pod2html-lib.pl
+++ b/ext/Pod-Html/t/pod2html-lib.pl
@@ -7,14 +7,13 @@ sub convert_n_test {
     my($podfile, $testname) = @_;
 
     my $cwd = Cwd::cwd();
-    my $base_dir = catdir $cwd, updir(), "lib", "Pod";
-    my $new_dir  = catdir $base_dir, "t";
+    my $new_dir  = catdir $cwd, "t";
     my $infile   = catfile $new_dir, "$podfile.pod";
     my $outfile  = catfile $new_dir, "$podfile.html";
 
     Pod::Html::pod2html(
         "--podpath=t",
-        "--podroot=$base_dir",
+        "--podroot=$cwd",
         "--htmlroot=/",
         "--infile=$infile",
         "--outfile=$outfile"