develooper Front page | perl.ponie.changes | Postings from March 2006

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

From:
nicholas
Date:
March 17, 2006 12:27
Subject:
[svn:ponie] r398 - branches/5.9.3merge/src/pmc
Message ID:
20060317202746.2618ECBA2B@x12.develooper.com
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);
         }
     }



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About