svn commit: r178047 - in /perl/modperl/trunk: Changes src/modules/perl/modperl_callback.c

[stas]

Author: stas
Date: Mon May 23 15:34:19 2005
New Revision: 178047

URL: http://svn.apache.org/viewcvs?rev=178047&view=rev
Log:
in mod_perl callbacks merge error-notes entries rather than store just
the newest error

Modified:
    perl/modperl/trunk/Changes
    perl/modperl/trunk/src/modules/perl/modperl_callback.c

Modified: perl/modperl/trunk/Changes
URL: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?rev=178047&r1=178046&r2=178047&view=diff
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Mon May 23 15:34:19 2005
@@ -12,6 +12,9 @@
 
 =item 2.0.1-dev
 
+in mod_perl callbacks merge error-notes entries rather than store just
+the newest error [Mark <[EMAIL PROTECTED]>]
+
 Expose Apache2::Const::EXEC_ON_READ (added to the :override group)
 [Stas]
 

Modified: perl/modperl/trunk/src/modules/perl/modperl_callback.c
URL: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_callback.c?rev=178047&r1=178046&r2=178047&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_callback.c (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_callback.c Mon May 23 15:34:19 
2005
@@ -130,7 +130,7 @@
 
     if (status == HTTP_INTERNAL_SERVER_ERROR) {
         if (r && r->notes) {
-            apr_table_set(r->notes, "error-notes", SvPV_nolen(ERRSV));
+            apr_table_mergen(r->notes, "error-notes", SvPV_nolen(ERRSV));
         }
     }