httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestSmoke.pm TestSmokePerl.pm
Date Tue, 14 May 2002 23:03:11 GMT
dougm       02/05/14 16:03:11

  Modified:    perl-framework/Apache-Test/lib/Apache TestSmoke.pm
                        TestSmokePerl.pm
  Log:
  tidy a bit
  
  Revision  Changes    Path
  1.15      +2 -5      httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm
  
  Index: TestSmoke.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -r1.14 -r1.15
  --- TestSmoke.pm	14 May 2002 22:49:38 -0000	1.14
  +++ TestSmoke.pm	14 May 2002 23:03:11 -0000	1.15
  @@ -4,6 +4,7 @@
   use warnings FATAL => 'all';
   
   use Apache::Test ();
  +use Apache::TestConfig ();
   use Apache::TestTrace;
   
   use Getopt::Long qw(GetOptions);
  @@ -420,11 +421,7 @@
   }
   
   sub build_config_as_string {
  -    my($self) = @_;
  -
  -    require Apache::TestConfig;
  -
  -    return Apache::TestConfig::as_string();
  +    Apache::TestConfig::as_string();
   }
   
   sub kill_proc {
  
  
  
  1.4       +1 -6      httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmokePerl.pm
  
  Index: TestSmokePerl.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmokePerl.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- TestSmokePerl.pm	14 May 2002 22:49:38 -0000	1.3
  +++ TestSmokePerl.pm	14 May 2002 23:03:11 -0000	1.4
  @@ -3,20 +3,15 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Test ();
   use Apache::TestSmoke ();
   use ModPerl::Config ();
   
  -use File::Spec::Functions qw(catfile);
  -
   # a subclass of Apache::TestSmoke that configures mod_perlish things
   use vars qw(@ISA);
   @ISA = qw(Apache::TestSmoke);
   
   sub build_config_as_string {
  -    my($self) = @_;
  -
  -    return ModPerl::Config::as_string();
  +    ModPerl::Config::as_string();
   }
   
   1;
  
  
  

Mime
View raw message