cvs commit: modperl/src/modules/perl mod_perl.c

[dougm]

dougm       00/04/12 23:07:33

  Modified:    .        Changes
               src/modules/perl mod_perl.c
  Log:
  fix indentation and change description
  
  Revision  Changes    Path
  1.467     +2 -2      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.466
  retrieving revision 1.467
  diff -u -r1.466 -r1.467
  --- Changes   2000/04/12 21:23:18     1.466
  +++ Changes   2000/04/13 06:07:32     1.467
  @@ -10,8 +10,8 @@
   
   =item 1.22_01-dev
   
  -set r->notes("error-notes") to $@ when there is a compile error.
  -[ Doug / Tom Mornini <[EMAIL PROTECTED]>]
  +set r->notes("error-notes") to $@ if $@ after a Perl*Handlers is run
  +[Doug / Tom Mornini <[EMAIL PROTECTED]>]
   
   added INSTALL.raven
   [Adam Qualset <[EMAIL PROTECTED]>]
  
  
  
  1.116     +3 -3      modperl/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.c,v
  retrieving revision 1.115
  retrieving revision 1.116
  diff -u -r1.115 -r1.116
  --- mod_perl.c        2000/04/12 21:23:18     1.115
  +++ mod_perl.c        2000/04/13 06:07:33     1.116
  @@ -1635,9 +1635,9 @@
       if(perl_eval_ok(r->server) != OK) {
        dTHRCTX;
        MP_STORE_ERROR(r->uri, ERRSV);
  -    if (r->notes) {
  -        ap_table_set(r->notes, "error-notes", SvPVX(ERRSV));
  -    }
  +        if (r->notes) {
  +            ap_table_set(r->notes, "error-notes", SvPVX(ERRSV));
  +        }
        if(!perl_sv_is_http_code(ERRSV, &status))
            status = SERVER_ERROR;
       }