Re: A better patch for Registry.pm

[Doug MacEachern]

On Mon, 10 Apr 2000, Tom Mornini wrote:

> 
> I missed an opportunity to set $r->notes('error-notes') if there was an
> error at compile-time. This patch includes both run-time and compile-time
> patches.

thanks tom.  the patch below will set error-notes for all Perl*Handlers.
$@ is also saved it $@{ $r->uri }, which was introduced before apache
started saving errors in $r->notes('error-notes')

--- src/modules/perl/mod_perl.c 2000/04/05 06:19:34     1.114
+++ src/modules/perl/mod_perl.c 2000/04/12 04:09:56
@@ -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;
     }