perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/xs/APR/Pool APR__Pool.h
Date Sat, 14 Feb 2004 23:19:01 GMT
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);
   
  
  
  

Mime
View raw message