svn commit: r1562772 - /perl/modperl/branches/httpd24threading/src/modules/perl/modperl_interp.c

[jkaluza]

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);