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

[dougm]

dougm       02/01/09 21:34:09

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  make "t/TEST -d lwp" work again
  
  Revision  Changes    Path
  1.84      +3 -2      
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.83
  retrieving revision 1.84
  diff -u -r1.83 -r1.84
  --- TestRun.pm        6 Jan 2002 19:29:19 -0000       1.83
  +++ TestRun.pm        10 Jan 2002 05:34:08 -0000      1.84
  @@ -389,7 +389,8 @@
       for (@exit_opts) {
           next unless exists $self->{opts}->{$_};
           my $method = "opt_$_";
  -        exit_perl $self->$method();
  +        my $rc = $self->$method();
  +        exit_perl $rc if $rc;
       }
   
       if ($self->{opts}->{'stop-httpd'}) {
  @@ -401,7 +402,7 @@
           else {
               warning "server $self->{server}->{name} is not running";
           }
  -        exit_perl $ok ;
  +        exit_perl $ok;
       }
   }