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	wellsi	1.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			}