perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From a..@locus.apache.org
Subject cvs commit: modperl/src/modules/perl mod_perl.c
Date Wed, 12 Apr 2000 21:23:19 GMT
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 <tmornini@infomania.com>]
  +
   added INSTALL.raven
   [Adam Qualset <adam@covalent.net>]
   
  
  
  
  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;
       }
  
  
  

Mime
View raw message