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

[stas]

stas        2002/08/15 05:59:38

  Modified:    ModPerl-Registry/lib/ModPerl RegistryCooker.pm
  Log:
  move the setting of %@ into the log_error() method, so it'll be set on any
  errors
  
  Revision  Changes    Path
  1.15      +1 -2      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.14
  retrieving revision 1.15
  diff -u -r1.14 -r1.15
  --- RegistryCooker.pm 15 Aug 2002 12:34:20 -0000      1.14
  +++ RegistryCooker.pm 15 Aug 2002 12:59:38 -0000      1.15
  @@ -656,8 +656,6 @@
       my $self = shift;
       if ($@ and substr($@,0,4) ne " at ") {
        $self->log_error($@);
  -     $@{$self->[REQ]->uri} = $@;
  -     #$@ = ''; #XXX fix me, if we don't do this Apache::exit() breaks        
        return Apache::SERVER_ERROR;
       }
       return Apache::OK;
  @@ -701,6 +699,7 @@
   
       $self->[REQ]->log_error("$$: $class: $msg");
       $self->[REQ]->notes('error-notes', $msg);
  +    $@{$self->[URI]} = $msg;
   }
   
   #########################################################################