perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryCooker.pm
Date Sun, 09 May 2004 21:01:47 GMT
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;
       }
  
  
  

Mime
View raw message