local-lib5/lib/perl5/ExtUtils/testlib.pm

   1 package ExtUtils::testlib;
   2
   3 use strict;
   4 use warnings;
   5
   6 our $VERSION = 6.54;
   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