Upgrade to ExtUtils-Manifest-1.49.

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / testlib.pm

diff --git a/lib/ExtUtils/testlib.pm b/lib/ExtUtils/testlib.pm
index 93edfd3..fffaed1 100644 (file)
--- a/lib/ExtUtils/testlib.pm
+++ b/lib/ExtUtils/testlib.pm
@@ -1,7 +1,19 @@
 package ExtUtils::testlib;
-$VERSION = 1.12_01;
-
-use lib qw(blib/arch blib/lib);
+$VERSION = 1.16;
+
+use Cwd;
+use File::Spec;
+
+# So the tests can chdir around and not break @INC.
+# We use getcwd() because otherwise rel2abs will blow up under taint
+# mode pre-5.8.  We detaint is so @INC won't be tainted.  This is
+# no worse, and probably better, than just shoving an untainted, 
+# relative "blib/lib" onto @INC.
+my $cwd;
+BEGIN {
+    ($cwd) = getcwd() =~ /(.*)/;
+}
+use lib map File::Spec->rel2abs($_, $cwd), qw(blib/arch blib/lib);
 1;
 __END__
 
@@ -15,8 +27,6 @@ ExtUtils::testlib - add blib/* directories to @INC
 
 =head1 DESCRIPTION
 
-B<THIS MODULE IS OBSOLETE!>  Use blib instead.
-
 After an extension has been built and before it is installed it may be
 desirable to test it bypassing C<make test>. By adding