httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRun.pm
Date Fri, 19 Oct 2001 01:24:24 GMT
stas        01/10/18 18:24:24

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  - if die() is thrown during configure(), files have been generated but the
  Apache::TestConfig object is not committed to
  t/conf/apache_test_config.pm. therefore wrapping configure() in eval block
  and committing the object if configure() doesn't get normally completed.
  
  Revision  Changes    Path
  1.61      +10 -1     httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
  
  Index: TestRun.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
  retrieving revision 1.60
  retrieving revision 1.61
  diff -u -r1.60 -r1.61
  --- TestRun.pm	2001/10/18 02:44:36	1.60
  +++ TestRun.pm	2001/10/19 01:24:24	1.61
  @@ -505,7 +505,16 @@
           $self->opt_clean(1);
       }
   
  -    $self->configure;
  +    # if configure() fails for some reason before it has flushed the
  +    # config to a file, save it so -clean will be able to clean
  +    eval { $self->configure; };
  +    if ($@) {
  +        error "configure() has failed:\n$@";
  +        warning "forcing Apache::TestConfig object save";
  +        $self->{test_config}->save;
  +        warning "run 't/TEST -clean' to clean up before continuing";
  +        exit;
  +    }
   
       if ($self->{opts}->{configure}) {
           warning "reconfiguration done";
  
  
  

Mime
View raw message