home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / mp2bug.bat < prev    next >
Encoding:
DOS Batch File  |  2004-07-19  |  1.4 KB  |  52 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. # Copyright 2003-2004 The Apache Software Foundation
  16. #
  17. # Licensed under the Apache License, Version 2.0 (the "License");
  18. # you may not use this file except in compliance with the License.
  19. # You may obtain a copy of the License at
  20. #
  21. #     http://www.apache.org/licenses/LICENSE-2.0
  22. #
  23. # Unless required by applicable law or agreed to in writing, software
  24. # distributed under the License is distributed on an "AS IS" BASIS,
  25. # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  26. # See the License for the specific language governing permissions and
  27. # limitations under the License.
  28. #
  29.  
  30. use strict;
  31. use warnings FATAL => 'all';
  32.  
  33. use FindBin;
  34.  
  35. use constant IS_MOD_PERL_BUILD => -e "$FindBin::Bin/../lib/mod_perl.pm";
  36.  
  37. if (IS_MOD_PERL_BUILD) {
  38.     unshift @INC, "$FindBin::Bin/../lib";
  39. }
  40. else {
  41.     eval { require Apache2 };
  42.     if ($@) {
  43.         die "This script requires mod_perl 2.0\n", "$@";
  44.     }
  45. }
  46.  
  47. require ModPerl::TestReport;
  48. ModPerl::TestReport->new(@ARGV)->run;
  49.  
  50. __END__
  51. :endofperl
  52.