[svn:ponie] r342 - trunk/src/pmc

Author: nicholas
Date: Thu Aug 25 06:45:20 2005
New Revision: 342

Modified:
   trunk/src/pmc/perl5cargo_cult.pmc
Log:
Call sv_clear_backend and avoid a reference-count-to-zero dance.


Modified: trunk/src/pmc/perl5cargo_cult.pmc
==============================================================================
--- trunk/src/pmc/perl5cargo_cult.pmc	(original)
+++ trunk/src/pmc/perl5cargo_cult.pmc	Thu Aug 25 06:45:20 2005
@@ -622,14 +622,11 @@ pmclass Perl5cargo_cult dynpmc {
                 SvAMAGIC_off(rv);
 
                 if (SvTYPE(rv) >= SVt_PVMG) {
-                    U32 refcnt = SvREFCNT(rv);
-                    SvREFCNT_set(rv, 0);
                     /* A downgrade upgrade.  */
-                    sv_clear(rv);
+                    sv_clear_backend(rv, 0);
                     SvANY_set(rv, 0);
                     SELF->vtable = Parrot_base_vtables[PL_pmcname[SVt_NULL]];
                     PERL5_FLAGS(SELF) = 0;
-                    SvREFCNT_set(rv, refcnt);
                 }
                 
                 if (SvTYPE(rv) < SVt_RV)