[svn:ponie] rev 336 - trunk/src/pmc

Author: nicholas
Date: Mon Jul 25 09:42:17 2005
New Revision: 336

Modified:
   trunk/src/pmc/perl5cargo_cult.pmc
Log:
The re-arranged data structure means that sv_replace also needs to copy the
SvRV explicitly, as it too is not part of SvANY


Modified: trunk/src/pmc/perl5cargo_cult.pmc
==============================================================================
--- trunk/src/pmc/perl5cargo_cult.pmc	(original)
+++ trunk/src/pmc/perl5cargo_cult.pmc	Mon Jul 25 09:42:17 2005
@@ -687,6 +687,8 @@ pmclass Perl5cargo_cult dynpmc {
                     SvIV_set(sv, SvIVX(nsv));
                 if (type == SVt_NV || type >= SVt_PVNV)
                     SvNV_set(sv, SvNVX(nsv));
+                if (SvROK(sv))
+                    SvRV_set(sv, SvRV(nsv));
 
                 SELF->vtable = ((PMC *)MUMBLE(value))->vtable;