cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryCooker.pm

[stas]

stas        2004/05/09 14:01:47

  Modified:    ModPerl-Registry/lib/ModPerl RegistryCooker.pm
  Log:
  make sure that $@ is an APR::Error object
  
  Revision  Changes    Path
  1.48      +1 -1      modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
  
  Index: RegistryCooker.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm,v
  retrieving revision 1.47
  retrieving revision 1.48
  diff -u -u -r1.47 -r1.48
  --- RegistryCooker.pm 4 May 2004 06:16:46 -0000       1.47
  +++ RegistryCooker.pm 9 May 2004 21:01:47 -0000       1.48
  @@ -718,7 +718,7 @@
       # ModPerl::Util::exit() throws an exception object whose rc is
       # ModPerl::EXIT
       # (see modperl_perl_exit() and modperl_errsv() C functions)
  -    if ($@ && !(ref $@ && $@ == ModPerl::EXIT)) {
  +    if ($@ && !(ref $@ eq 'APR::Error' && $@ == ModPerl::EXIT)) {
           $self->log_error($@);
           return Apache::SERVER_ERROR;
       }