home *** CD-ROM | disk | FTP | other *** search
- #!perl
- # Copyright 2003-2004 The Apache Software Foundation
- #
- # Licensed under the Apache License, Version 2.0 (the "License");
- # you may not use this file except in compliance with the License.
- # You may obtain a copy of the License at
- #
- # http://www.apache.org/licenses/LICENSE-2.0
- #
- # Unless required by applicable law or agreed to in writing, software
- # distributed under the License is distributed on an "AS IS" BASIS,
- # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
- # See the License for the specific language governing permissions and
- # limitations under the License.
- #
-
- use strict;
- use warnings FATAL => 'all';
-
- use FindBin;
-
- use constant IS_MOD_PERL_BUILD => -e "$FindBin::Bin/../lib/mod_perl.pm";
-
- if (IS_MOD_PERL_BUILD) {
- unshift @INC, "$FindBin::Bin/../lib";
- }
- else {
- eval { require Apache2 };
- if ($@) {
- die "This script requires mod_perl 2.0\n", "$@";
- }
- }
-
- require ModPerl::TestReport;
- ModPerl::TestReport->new(@ARGV)->run;
-