diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-01-29 13:00:41 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-02-18 13:16:52 +0100 |
| commit | d5f215f1125cc143063ff70a0f2901c3b5720deb (patch) | |
| tree | bc577d8d236802ff3203176c4a8960589b44b9b5 | |
| parent | 60b5c0852d4781fad134c3b77ddcbce486e3bc30 (diff) | |
| download | perl-d5f215f1125cc143063ff70a0f2901c3b5720deb.tar.gz | |
Move Pod::Functions from lib/ to ext/
| -rw-r--r-- | MANIFEST | 4 | ||||
| -rwxr-xr-x | Porting/Maintainers.pl | 8 | ||||
| -rw-r--r-- | ext/Pod-Functions/Functions.pm (renamed from lib/Pod/Functions.pm) | 0 | ||||
| -rw-r--r-- | ext/Pod-Functions/t/Functions.t (renamed from lib/Pod/t/Functions.t) | 11 | ||||
| -rw-r--r-- | lib/.gitignore | 1 |
5 files changed, 10 insertions, 14 deletions
@@ -3804,6 +3804,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-Functions/Functions.pm used by pod/splitpod +ext/Pod-Functions/t/Functions.t See if Pod::Functions works ext/Pod-Html/bin/pod2html Translator to turn pod into HTML ext/Pod-Html/lib/Pod/Html.pm Convert POD data to HTML ext/Pod-Html/t/cache.pod @@ -4291,8 +4293,6 @@ lib/perl5db/t/taint Tests for the Perl debugger lib/perl5db/t/uncalled-subroutine Tests for the Perl debugger lib/perl5db/t/with-subroutine Tests for the Perl debugger lib/PerlIO.pm PerlIO support module -lib/Pod/Functions.pm used by pod/splitpod -lib/Pod/t/Functions.t See if Pod::Functions works lib/Pod/t/InputObjects.t See if Pod::InputObjects works lib/Pod/t/Select.t See if Pod::Select works lib/Pod/t/Usage.t See if Pod::Usage works diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 31eb3b7320..39305fe075 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1485,6 +1485,12 @@ use File::Glob qw(:case); 'UPSTREAM' => undef, }, + 'Pod::Functions' => { + 'MAINTAINER' => 'p5p', + 'FILES' => q[ext/Pod-Functions], + 'UPSTREAM' => 'blead', + }, + 'Pod::Html' => { 'MAINTAINER' => 'p5p', 'FILES' => q[ext/Pod-Html], @@ -2089,8 +2095,6 @@ use File::Glob qw(:case); lib/Net/netent.{pm,t} lib/Net/protoent.{pm,t} lib/Net/servent.{pm,t} - lib/Pod/Functions.pm - lib/Pod/t/Functions.t lib/Pod/t/InputObjects.t lib/Pod/t/Select.t lib/Pod/t/Usage.t diff --git a/lib/Pod/Functions.pm b/ext/Pod-Functions/Functions.pm index 1069c43c33..1069c43c33 100644 --- a/lib/Pod/Functions.pm +++ b/ext/Pod-Functions/Functions.pm diff --git a/lib/Pod/t/Functions.t b/ext/Pod-Functions/t/Functions.t index fb6dc400b5..e4e70e19df 100644 --- a/lib/Pod/t/Functions.t +++ b/ext/Pod-Functions/t/Functions.t @@ -1,10 +1,5 @@ #!perl -w -BEGIN { - chdir 't' if -d 't'; - @INC = '../lib'; -} - use strict; use File::Basename; @@ -48,15 +43,11 @@ my @cat_keys = grep exists $Type_Description{ $_ } => @Type_Order; ok( eq_array( \@cat_keys, \@catagories ), 'keys() %Type_Description' ); -my( undef, $path ) = fileparse( $0 ); -my $pod_functions = File::Spec->catfile( - $path, File::Spec->updir, 'Functions.pm' ); - SKIP: { my $test_out = do { local $/; <DATA> }; skip( "Can't fork '$^X': $!", 1) - unless open my $fh, qq[$^X "-I../lib" $pod_functions |]; + unless open my $fh, qq[$^X "-I../../lib" Functions.pm |]; my $fake_out = do { local $/; <$fh> }; skip( "Pipe error: $!", 1) unless close $fh; diff --git a/lib/.gitignore b/lib/.gitignore index f46cf80ff3..380a9f4378 100644 --- a/lib/.gitignore +++ b/lib/.gitignore @@ -316,6 +316,7 @@ /PerlIO/via/QuotedPrint.pm /Pod/Checker.pm /Pod/Escapes.pm +/Pod/Functions.pm /Pod/Find.pm /Pod/Html.pm /Pod/InputObjects.pm |