diff options
| author | Andy Lester <andy@petdance.com> | 2005-12-28 19:15:09 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-29 15:59:30 +0000 |
| commit | eb86f8b30b3c669d547a1d9008e5860ab483ae2d (patch) | |
| tree | dc9f00c66b75bedc723ca22c38a61e45f19fcaad /sv.c | |
| parent | 7a5b473ebcffe303e0ee757c10a615cdeb97e2f3 (diff) | |
| download | perl-eb86f8b30b3c669d547a1d9008e5860ab483ae2d.tar.gz | |
Actual real consting of parms
Message-ID: <20051229071509.GA32653@petdance.com>
p4raw-id: //depot/perl@26527
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 15 |
1 files changed, 7 insertions, 8 deletions
@@ -9179,7 +9179,7 @@ Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl) void -Perl_rvpv_dup(pTHX_ SV *dstr, SV *sstr, CLONE_PARAMS* param) +Perl_rvpv_dup(pTHX_ SV *dstr, const SV *sstr, CLONE_PARAMS* param) { if (SvROK(sstr)) { SvRV_set(dstr, SvWEAKREF(sstr) @@ -9225,7 +9225,7 @@ Perl_rvpv_dup(pTHX_ SV *dstr, SV *sstr, CLONE_PARAMS* param) /* duplicate an SV of any type (including AV, HV etc) */ SV * -Perl_sv_dup(pTHX_ SV *sstr, CLONE_PARAMS* param) +Perl_sv_dup(pTHX_ const SV *sstr, CLONE_PARAMS* param) { dVAR; SV *dstr; @@ -9240,12 +9240,11 @@ Perl_sv_dup(pTHX_ SV *sstr, CLONE_PARAMS* param) if(param->flags & CLONEf_JOIN_IN) { /** We are joining here so we don't want do clone something that is bad **/ - const char *hvname; - - if(SvTYPE(sstr) == SVt_PVHV && - (hvname = HvNAME_get(sstr))) { - /** don't clone stashes if they already exist **/ - return (SV*)gv_stashpv(hvname,0); + if (SvTYPE(sstr) == SVt_PVHV) { + const char * const hvname = HvNAME_get(sstr); + if (hvname) + /** don't clone stashes if they already exist **/ + return (SV*)gv_stashpv(hvname,0); } } |