home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _38fbf0f938dbe8d276854d86bd16c762 < prev    next >
Encoding:
Text File  |  2004-06-01  |  891 b   |  38 lines
  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.  
  38.