[svn:ponie] r398 - branches/5.9.3merge/src/pmc

Author: nicholas
Date: Fri Mar 17 12:27:45 2006
New Revision: 398

Modified:
   branches/5.9.3merge/src/pmc/perl5cargo_cult.pmc

Log:
First change from 5.9.3's sv.c that needs propagating to the PMC code.
This clears up the "evil" in the shared string table.
Still it doth go boom though.


Modified: branches/5.9.3merge/src/pmc/perl5cargo_cult.pmc
==============================================================================
--- branches/5.9.3merge/src/pmc/perl5cargo_cult.pmc	(original)
+++ branches/5.9.3merge/src/pmc/perl5cargo_cult.pmc	Fri Mar 17 12:27:45 2006
@@ -37,9 +37,7 @@
         if (SvPVX(sv) && SvLEN(sv))
             Safefree(SvPVX(sv));
         else if (SvPVX(sv) && SvREADONLY(sv) && SvFAKE(sv)) {
-            unsharepvn(SvPVX(sv),
-                       SvUTF8(sv) ? -(I32)SvCUR(sv) : SvCUR(sv),
-                       SvUVX(sv));
+	    Perl_unshare_hek(aTHX_ SvSHARED_HEK_FROM_PV(SvPVX_const(sv)));
             SvFAKE_off(sv);
         }
     }