lib/ExtUtils/testlib.pm

   1 package ExtUtils::testlib;
   2 $VERSION = 1.15;
   3
   4 use Cwd;
   5 use 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.
  12 my $cwd;
  13 BEGIN {
  14     ($cwd) = getcwd() =~ /(.*)/;
  15 }
  16 use lib map File::Spec->rel2abs($_, $cwd), qw(blib/arch blib/lib);
  17 1;
  18 __END__
  19
  20 =head1 NAME
  21
  22 ExtUtils::testlib - add blib/* directories to @INC
  23
  24 =head1 SYNOPSIS
  25
  26   use ExtUtils::testlib;
  27
  28 =head1 DESCRIPTION
  29
  30 After an extension has been built and before it is installed it may be
  31 desirable to test it bypassing C<make test>. By adding
  32
  33     use ExtUtils::testlib;
  34
  35 to a test program the intermediate directories used by C<make> are
  36 added to @INC.
  37