perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From jkal...@apache.org
Subject svn commit: r1562772 - /perl/modperl/branches/httpd24threading/src/modules/perl/modperl_interp.c
Date Thu, 30 Jan 2014 10:47:58 GMT
Author: jkaluza
Date: Thu Jan 30 10:47:58 2014
New Revision: 1562772

URL: http://svn.apache.org/r1562772
Log:
Mark interpreter as "free" when the refcnt decrements to 0. This fixes freezing
tests with event MPM (and concurrent requests with event MPM).

Modified:
    perl/modperl/branches/httpd24threading/src/modules/perl/modperl_interp.c

Modified: perl/modperl/branches/httpd24threading/src/modules/perl/modperl_interp.c
URL: http://svn.apache.org/viewvc/perl/modperl/branches/httpd24threading/src/modules/perl/modperl_interp.c?rev=1562772&r1=1562771&r2=1562772&view=diff
==============================================================================
--- perl/modperl/branches/httpd24threading/src/modules/perl/modperl_interp.c (original)
+++ perl/modperl/branches/httpd24threading/src/modules/perl/modperl_interp.c Thu Jan 30 10:47:58
2014
@@ -277,7 +277,7 @@ apr_status_t modperl_interp_unselect(voi
     MP_TRACE_i(MP_FUNC, "unselect(interp=%pp): refcnt=%d",
                interp, interp->refcnt);
 
-    if (interp->refcnt != 0) {
+    if (interp->refcnt > 1) {
         --interp->refcnt;
         MP_TRACE_i(MP_FUNC, "interp=0x%lx, refcnt=%d -- interp still in use",
                    (unsigned long)interp, interp->refcnt);



Mime
View raw message