Author: torsten
Date: Mon Mar 12 13:27:30 2012
New Revision: 1299669
URL: http://svn.apache.org/viewvc?rev=1299669&view=rev
Log:
Do not stringify $@ upon exception propagation.
Modified:
perl/modperl/trunk/Changes
perl/modperl/trunk/src/modules/perl/modperl_error.c
perl/modperl/trunk/xs/APR/Pool/APR__Pool.h
perl/modperl/trunk/xs/Apache2/ServerUtil/Apache2__ServerUtil.h
Modified: perl/modperl/trunk/Changes
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/Changes?rev=1299669&r1=1299668&r2=1299669&view=diff
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Mon Mar 12 13:27:30 2012
@@ -12,6 +12,8 @@ Also refer to the Apache::Test changes l
=item 2.0.6-dev
+Do not stringify $@ upon exception propagation. [Torsten Foertsch]
+
Fix a race condition in our tipool management.
See http://www.gossamer-threads.com/lists/modperl/dev/104026
Patch submitted by: SalusaSecondus <sal...@nationstates.net>
Modified: perl/modperl/trunk/src/modules/perl/modperl_error.c
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/modperl_error.c?rev=1299669&r1=1299668&r2=1299669&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_error.c (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_error.c Mon Mar 12 13:27:30 2012
@@ -78,7 +78,7 @@ void modperl_croak(pTHX_ apr_status_t rc
}
if (SvTRUE(ERRSV)) {
- Perl_croak(aTHX_ "%s", SvPV_nolen(ERRSV));
+ Perl_croak(aTHX_ Nullch);
}
stash = gv_stashpvn("APR::Error", 10, FALSE);
Modified: perl/modperl/trunk/xs/APR/Pool/APR__Pool.h
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/xs/APR/Pool/APR__Pool.h?rev=1299669&r1=1299668&r2=1299669&view=diff
==============================================================================
--- perl/modperl/trunk/xs/APR/Pool/APR__Pool.h (original)
+++ perl/modperl/trunk/xs/APR/Pool/APR__Pool.h Mon Mar 12 13:27:30 2012
@@ -312,7 +312,7 @@ static apr_status_t mpxs_cleanup_run(voi
#endif
if (SvTRUE(ERRSV)) {
- Perl_croak(aTHX_ SvPV_nolen(ERRSV));
+ Perl_croak(aTHX_ Nullch);
}
/* the return value is ignored by apr_pool_destroy anyway */
Modified: perl/modperl/trunk/xs/Apache2/ServerUtil/Apache2__ServerUtil.h
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/xs/Apache2/ServerUtil/Apache2__ServerUtil.h?rev=1299669&r1=1299668&r2=1299669&view=diff
==============================================================================
--- perl/modperl/trunk/xs/Apache2/ServerUtil/Apache2__ServerUtil.h (original)
+++ perl/modperl/trunk/xs/Apache2/ServerUtil/Apache2__ServerUtil.h Mon Mar 12
13:27:30 2012
@@ -80,7 +80,7 @@ static apr_status_t mpxs_cleanup_run(voi
}
if (SvTRUE(ERRSV)) {
- Perl_croak(aTHX_ SvPV_nolen(ERRSV));
+ Perl_croak(aTHX_ Nullch);
}
/* the return value is ignored by apr_pool_destroy anyway */
