perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From tors...@apache.org
Subject svn commit: r1299669 - in /perl/modperl/trunk: Changes src/modules/perl/modperl_error.c xs/APR/Pool/APR__Pool.h xs/Apache2/ServerUtil/Apache2__ServerUtil.h
Date Mon, 12 Mar 2012 13:27:30 GMT
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 <salusa@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 */



Mime
View raw message