1package ExtUtils::testlib;
2
3use strict;
4use warnings;
5
6our $VERSION = '6.98_01';
7
8use Cwd;
9use File::Spec;
10
11# So the tests can chdir around and not break @INC.
12# We use getcwd() because otherwise rel2abs will blow up under taint
13# mode pre-5.8.  We detaint is so @INC won't be tainted.  This is
14# no worse, and probably better, than just shoving an untainted,
15# relative "blib/lib" onto @INC.
16my $cwd;
17BEGIN {
18    ($cwd) = getcwd() =~ /(.*)/;
19}
20use lib map { File::Spec->rel2abs($_, $cwd) } qw(blib/arch blib/lib);
211;
22__END__
23
24=head1 NAME
25
26ExtUtils::testlib - add blib/* directories to @INC
27
28=head1 SYNOPSIS
29
30  use ExtUtils::testlib;
31
32=head1 DESCRIPTION
33
34After an extension has been built and before it is installed it may be
35desirable to test it bypassing C<make test>. By adding
36
37    use ExtUtils::testlib;
38
39to a test program the intermediate directories used by C<make> are
40added to @INC.
41
42