From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 13 Sep 2009 15:57:40 +0000 (+0100)
Subject: Move PerlIO::via::QuotedPrint from lib to ext.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d298f468fca65d287753530a975a3d396dd25e1d;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/MANIFEST b/MANIFEST
index 9fc42d9..f2c9971 100644
--- 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
--- 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
--- 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
--- 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
--- 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