home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / mp2bug < prev    next >
Encoding:
Text File  |  2003-12-15  |  412 b   |  22 lines
  1. #!perl
  2.  
  3. use strict;
  4. use warnings FATAL => 'all';
  5.  
  6. use FindBin;
  7.  
  8. use constant IS_MOD_PERL_BUILD => -e "$FindBin::Bin/../lib/mod_perl.pm";
  9.  
  10. if (IS_MOD_PERL_BUILD) {
  11.     unshift @INC, "$FindBin::Bin/../lib";
  12. }
  13. else {
  14.     eval { require Apache2 };
  15.     if ($@) {
  16.         die "This script requires mod_perl 2.0\n", "$@";
  17.     }
  18. }
  19.  
  20. require ModPerl::TestReport;
  21. ModPerl::TestReport->new(@ARGV)->run;
  22.