Return-Path: Delivered-To: apmail-httpd-test-cvs-archive@www.apache.org Received: (qmail 67081 invoked from network); 4 Aug 2004 19:09:54 -0000 Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199) by minotaur-2.apache.org with SMTP; 4 Aug 2004 19:09:54 -0000 Received: (qmail 11657 invoked by uid 500); 4 Aug 2004 19:07:10 -0000 Delivered-To: apmail-httpd-test-cvs-archive@httpd.apache.org Received: (qmail 11552 invoked by uid 500); 4 Aug 2004 19:07:09 -0000 Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm Precedence: bulk Reply-To: test-dev@httpd.apache.org list-help: list-unsubscribe: list-post: Delivered-To: mailing list test-cvs@httpd.apache.org Received: (qmail 11477 invoked by uid 99); 4 Aug 2004 19:07:08 -0000 X-ASF-Spam-Status: No, hits=-2.8 required=10.0 tests=ALL_TRUSTED,NO_REAL_NAME X-Spam-Check-By: apache.org Received: from [209.237.227.194] (HELO minotaur.apache.org) (209.237.227.194) by apache.org (qpsmtpd/0.27.1) with SMTP; Wed, 04 Aug 2004 12:07:08 -0700 Received: (qmail 64588 invoked by uid 1072); 4 Aug 2004 19:07:06 -0000 Date: 4 Aug 2004 19:07:06 -0000 Message-ID: <20040804190706.64587.qmail@minotaur.apache.org> From: stas@apache.org To: httpd-test-cvs@apache.org Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache Test.pm X-Virus-Checked: Checked X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N stas 2004/08/04 12:07:06 Modified: perl-framework/Apache-Test/lib/Apache Test.pm Log: wrap long lines Revision Changes Path 1.90 +5 -3 httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm Index: Test.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm,v retrieving revision 1.89 retrieving revision 1.90 diff -u -u -r1.89 -r1.90 --- Test.pm 4 Aug 2004 18:47:50 -0000 1.89 +++ Test.pm 4 Aug 2004 19:07:06 -0000 1.90 @@ -22,7 +22,7 @@ use Config; use Apache::TestConfig (); -use vars qw(@ISA @EXPORT %EXPORT_TAGS $VERSION %SubTests @SkipReasons +use vars qw(@ISA @EXPORT %EXPORT_TAGS $VERSION %SubTests @SkipReasons $AUTOLOAD); my @need = qw(need_lwp need_http11 need_cgi need_access need_auth @@ -34,7 +34,8 @@ my @have = map { (my $need = $_) =~ s/need/have/; $need } @need; @ISA = qw(Exporter); -@EXPORT = (qw(ok skip sok plan skip_reason under_construction need), @need, @have); +@EXPORT = (qw(ok skip sok plan skip_reason under_construction need), + @need, @have); # everything but ok(), skip(), and plan() - Test::More provides these my @test_more_exports = grep { ! /^(ok|skip|plan)$/ } @EXPORT; @@ -254,7 +255,8 @@ # need_module requires the perl module return 0 unless need_module($module); - return 1 if eval { no warnings qw(numeric); $module->VERSION($version) }; + return 1 + if eval { no warnings qw(numeric); $module->VERSION($version) }; push @SkipReasons, "$module version $version or higher is required"; return 0;