[Summary view] [Print] [Text view]

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