home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl / 5.10.0 / ExtUtils / testlib.pm < prev    next >
Encoding:
Perl POD Document  |  2009-06-26  |  891 b   |  42 lines
  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.  
  42.