From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 12 Jun 2005 22:34:39 +0000 (+0000)
Subject: duping shared hask key scalars can use hek_dup
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=23b4abe91660ccb54a9308edac575581f85bb433;p=p5sagit%2Fp5-mst-13.2.git

duping shared hask key scalars can use hek_dup

p4raw-id: //depot/perl@24813
---

diff --git a/sv.c b/sv.c
index db5a2e0..b565057 100644
--- a/sv.c
+++ b/sv.c
@@ -10747,9 +10747,9 @@ Perl_rvpv_dup(pTHX_ SV *dstr, SV *sstr, CLONE_PARAMS* param)
                        and they should not have these flags
                        turned off */
 
-		    /* FIXME - would benefit from share_hek_hek  */
-                    SvPV_set(dstr, sharepvn(SvPVX_const(sstr), SvCUR(sstr),
-                                           SvUVX(sstr)));
+		    SvPV_set(dstr,
+			     HEK_KEY(hek_dup(SvSHARED_HEK_FROM_PV(SvPVX_const(sstr)),
+					     param)));
                 } else {
 
                     SvPV_set(dstr, SAVEPVN(SvPVX_const(sstr), SvCUR(sstr)));