stas 2004/02/14 15:19:01
Modified: xs/APR/Pool APR__Pool.h
Log:
no need for the perl object in the pool accounting callback
Revision Changes Path
1.10 +1 -5 modperl-2.0/xs/APR/Pool/APR__Pool.h
Index: APR__Pool.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/APR/Pool/APR__Pool.h,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -u -r1.9 -r1.10
--- APR__Pool.h 31 Jan 2004 10:06:59 -0000 1.9
+++ APR__Pool.h 14 Feb 2004 23:19:01 -0000 1.10
@@ -2,7 +2,6 @@
typedef struct {
SV *sv;
- PerlInterpreter *perl;
} mpxs_pool_account_t;
/* XXX: this implementation has a problem with perl ithreads. if a
@@ -44,7 +43,6 @@
MP_POOL_TRACE(MP_FUNC, "this pool seems to be destroyed already");
}
else {
- dTHXa(data->perl);
MP_POOL_TRACE(MP_FUNC,
"pool 0x%lx contains a valid sv 0x%lx, invalidating it",
(unsigned long)data->sv, (unsigned long)cleanup_data);
@@ -132,9 +130,7 @@
SV *rv = sv_setref_pv(NEWSV(0, 0), "APR::Pool", (void*)child_pool);
data->sv = SvRV(rv);
-#ifdef USE_ITHREADS
- data->perl = aTHX;
-#endif
+
MP_POOL_TRACE(MP_FUNC, "sub-pool p: 0x%lx, sv: 0x%lx, rv: 0x%lx",
(unsigned long)child_pool, data->sv, rv);
