cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache Test.pm

[stas]

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);
  [EMAIL PROTECTED] = (qw(ok skip sok plan skip_reason under_construction 
need), @need, @have);
  [EMAIL PROTECTED] = (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;