Move PerlIO::via::QuotedPrint from lib to ext.

diff --git a/MANIFEST b/MANIFEST
index 9fc42d9..f2c9971 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -2043,6 +2043,8 @@ ext/PerlIO-scalar/scalar.xs       PerlIO layer for scalars
 ext/PerlIO-scalar/t/scalar.t   See if PerlIO::scalar works
 ext/PerlIO-scalar/t/scalar_ungetc.t    Tests for PerlIO layer for scalars
 ext/PerlIO-via/hints/aix.pl    Hint for PerlIO::via for named architecture
+ext/PerlIO-via-QuotedPrint/lib/PerlIO/via/QuotedPrint.pm       PerlIO::via::QuotedPrint
+ext/PerlIO-via-QuotedPrint/t/QuotedPrint.t                     PerlIO::via::QuotedPrint
 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
@@ -3319,8 +3321,6 @@ lib/perl5db/t/rt-61222            Tests for the Perl debugger
 lib/perl5db/t/rt-66110         Tests for the Perl debugger
 lib/perl5db/t/symbol-table-bug Tests for the Perl debugger
 lib/PerlIO.pm                  PerlIO support module
-lib/PerlIO/via/QuotedPrint.pm  PerlIO::via::QuotedPrint
-lib/PerlIO/via/t/QuotedPrint.t PerlIO::via::QuotedPrint
 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

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 8e2d6aa..a7e9ae3 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1187,11 +1187,7 @@ use File::Glob qw(:case);
        {
        'MAINTAINER'    => 'elizabeth',
        'DISTRIBUTION'  => 'ELIZABETH/PerlIO-via-QuotedPrint-0.06.tar.gz',
-       'FILES'         => q[lib/PerlIO/via/QuotedPrint.pm
-                            lib/PerlIO/via/t/QuotedPrint.t],
-       'MAP'           => { 'lib/'      => 'lib/',
-                            ''        => 'lib/PerlIO/via/',
-                          },
+       'FILES'         => q[ext/PerlIO-via-QuotedPrint],
        'CPAN'          => 1,
        'UPSTREAM'      => undef,
        },

diff --git a/ext/.gitignore b/ext/.gitignore
index 2405c6d..0e157f2 100644 (file)
--- a/ext/.gitignore
+++ b/ext/.gitignore
@@ -75,6 +75,7 @@ ppport.h
 /PerlIO-encoding/Makefile.PL
 /PerlIO-scalar/Makefile.PL
 /PerlIO-via/Makefile.PL
+/PerlIO-via-QuotedPrint/Makefile.PL
 /Pod-Escapes/Makefile.PL
 /Pod-LaTeX/Makefile.PL
 /Pod-Parser/Makefile.PL

diff --git a/lib/PerlIO/via/QuotedPrint.pm b/ext/PerlIO-via-QuotedPrint/lib/PerlIO/via/QuotedPrint.pm
similarity index 100%
rename from lib/PerlIO/via/QuotedPrint.pm
rename to ext/PerlIO-via-QuotedPrint/lib/PerlIO/via/QuotedPrint.pm

diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/ext/PerlIO-via-QuotedPrint/t/QuotedPrint.t
similarity index 95%
rename from lib/PerlIO/via/t/QuotedPrint.t
rename to ext/PerlIO-via-QuotedPrint/t/QuotedPrint.t
index 40bca4f..69eb625 100644 (file)
--- a/lib/PerlIO/via/t/QuotedPrint.t
+++ b/ext/PerlIO-via-QuotedPrint/t/QuotedPrint.t
@@ -1,8 +1,4 @@
 BEGIN {                                # Magic Perl CORE pragma
-    if ($ENV{PERL_CORE}) {
-        chdir 't' if -d 't';
-        @INC = '../lib';
-    }
     unless (find PerlIO::Layer 'perlio') {
         print "1..0 # Skip: PerlIO not used\n";
         exit 0;

diff --git a/lib/.gitignore b/lib/.gitignore
index ec42bb5..523b247 100644 (file)
--- a/lib/.gitignore
+++ b/lib/.gitignore
@@ -287,6 +287,7 @@
 /PerlIO/encoding.pm
 /PerlIO/scalar.pm
 /PerlIO/via.pm
+/PerlIO/via/QuotedPrint.pm
 /Pod/Checker.pm
 /Pod/Escapes.pm
 /Pod/Find.pm