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

[ask]

ask         00/04/12 14:23:19

  Modified:    .        Changes
               src/modules/perl mod_perl.c
  Log:
  set r->notes("error-notes") to $@ when there is an eval error.
  
  Revision  Changes    Path
  1.466     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.465
  retrieving revision 1.466
  diff -u -r1.465 -r1.466
  --- Changes   2000/04/12 16:13:09     1.465
  +++ Changes   2000/04/12 21:23:18     1.466
  @@ -10,6 +10,9 @@
   
   =item 1.22_01-dev
   
  +set r->notes("error-notes") to $@ when there is a compile error.
  +[ Doug / Tom Mornini <[EMAIL PROTECTED]>]
  +
   added INSTALL.raven
   [Adam Qualset <[EMAIL PROTECTED]>]
   
  
  
  
  1.115     +3 -0      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.114
  retrieving revision 1.115
  diff -u -r1.114 -r1.115
  --- mod_perl.c        2000/04/05 06:19:34     1.114
  +++ mod_perl.c        2000/04/12 21:23:18     1.115
  @@ -1635,6 +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(!perl_sv_is_http_code(ERRSV, &status))
            status = SERVER_ERROR;
       }