mod_perl/sme9/mod_perl-2.0.4-tipool-race.patch

--- a/src/modules/perl/modperl_tipool.c 2012/03/11 19:09:20     1299428
+++ b/src/modules/perl/modperl_tipool.c 2012/03/11 19:09:47     1299429
@@ -328,9 +328,9 @@
     MP_TRACE_i(MP_FUNC, "0x%lx now available (%d in use, %d running)",
                (unsigned long)listp->data, tipool->in_use, tipool->size);
 
+    modperl_tipool_broadcast(tipool);
     if (tipool->in_use == (tipool->cfg->max - 1)) {
         /* hurry up, another thread may be blocking */
-        modperl_tipool_broadcast(tipool);
         modperl_tipool_unlock(tipool);
         return;
     }
1	--- a/src/modules/perl/modperl_tipool.c 2012/03/11 19:09:20 1299428
2	+++ b/src/modules/perl/modperl_tipool.c 2012/03/11 19:09:47 1299429
3	@@ -328,9 +328,9 @@
4	MP_TRACE_i(MP_FUNC, "0x%lx now available (%d in use, %d running)",
5	(unsigned long)listp->data, tipool->in_use, tipool->size);
6
7	+ modperl_tipool_broadcast(tipool);
8	if (tipool->in_use == (tipool->cfg->max - 1)) {
9	/* hurry up, another thread may be blocking */
10	- modperl_tipool_broadcast(tipool);
11	modperl_tipool_unlock(tipool);
12	return;
13	}