diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-06-20 13:31:32 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-20 17:23:08 +0000 |
| commit | d2d73c3ec87c4412e7e67142070015e92c5112b0 (patch) | |
| tree | ad0f5d0601dd9558a1acb6b07bdd84a0f83bbd32 /hv.c | |
| parent | 212caf55b8a7ec0d131ccbf5f587aaed741446df (diff) | |
| download | perl-d2d73c3ec87c4412e7e67142070015e92c5112b0.tar.gz | |
Fixes case of CvDEPTH for perl_clone
Message-ID: <B7563A14.17D8%artur@contiller.se>
p4raw-id: //depot/perl@10757
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -99,7 +99,7 @@ Perl_unshare_hek(pTHX_ HEK *hek) #if defined(USE_ITHREADS) HE * -Perl_he_dup(pTHX_ HE *e, bool shared) +Perl_he_dup(pTHX_ HE *e, bool shared, clone_params* param) { HE *ret; @@ -114,14 +114,14 @@ Perl_he_dup(pTHX_ HE *e, bool shared) ret = new_HE(); ptr_table_store(PL_ptr_table, e, ret); - HeNEXT(ret) = he_dup(HeNEXT(e),shared); + HeNEXT(ret) = he_dup(HeNEXT(e),shared, param); if (HeKLEN(e) == HEf_SVKEY) - HeKEY_sv(ret) = SvREFCNT_inc(sv_dup(HeKEY_sv(e))); + HeKEY_sv(ret) = SvREFCNT_inc(sv_dup(HeKEY_sv(e), param)); else if (shared) HeKEY_hek(ret) = share_hek(HeKEY(e), HeKLEN_UTF8(e), HeHASH(e)); else HeKEY_hek(ret) = save_hek(HeKEY(e), HeKLEN_UTF8(e), HeHASH(e)); - HeVAL(ret) = SvREFCNT_inc(sv_dup(HeVAL(e))); + HeVAL(ret) = SvREFCNT_inc(sv_dup(HeVAL(e), param)); return ret; } #endif /* USE_ITHREADS */ |