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