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.bat < prev    next >
Encoding:
DOS Batch File  |  2003-12-31  |  830 b   |  38 lines
  1. @rem = '--*-Perl-*--
  2. @echo off
  3. if "%OS%" == "Windows_NT" goto WinNT
  4. perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
  5. goto endofperl
  6. :WinNT
  7. perl -x -S %0 %*
  8. if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
  9. if %errorlevel% == 9009 echo You do not have Perl in your PATH.
  10. if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
  11. goto endofperl
  12. @rem ';
  13. #!perl
  14. #line 15
  15.  
  16. use strict;
  17. use warnings FATAL => 'all';
  18.  
  19. use FindBin;
  20.  
  21. use constant IS_MOD_PERL_BUILD => -e "$FindBin::Bin/../lib/mod_perl.pm";
  22.  
  23. if (IS_MOD_PERL_BUILD) {
  24.     unshift @INC, "$FindBin::Bin/../lib";
  25. }
  26. else {
  27.     eval { require Apache2 };
  28.     if ($@) {
  29.         die "This script requires mod_perl 2.0\n", "$@";
  30.     }
  31. }
  32.  
  33. require ModPerl::TestReport;
  34. ModPerl::TestReport->new(@ARGV)->run;
  35.  
  36. __END__
  37. :endofperl
  38.