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;
}