Author: stas Date: Mon Mar 28 20:44:29 2005 New Revision: 159348 URL: http://svn.apache.org/viewcvs?view=rev&rev=159348 Log: when returning undef just return &PL_sv_undef instead of the confusing SvREFCNT_inc(mp_xs_APR__Pool_2obj(parent_pool)); which eventually leads to the same thing
Modified: perl/modperl/trunk/xs/APR/Pool/APR__Pool.h Modified: perl/modperl/trunk/xs/APR/Pool/APR__Pool.h URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/xs/APR/Pool/APR__Pool.h?view=diff&r1=159347&r2=159348 ============================================================================== --- perl/modperl/trunk/xs/APR/Pool/APR__Pool.h (original) +++ perl/modperl/trunk/xs/APR/Pool/APR__Pool.h Mon Mar 28 20:44:29 2005 @@ -356,7 +356,7 @@ else { MP_POOL_TRACE(MP_FUNC, "pool (0x%lx) has no parents", (unsigned long)child_pool); - return SvREFCNT_inc(mp_xs_APR__Pool_2obj(parent_pool)); + return &PL_sv_undef; } }