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