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;
     }
 }
 


Reply via email to