diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-14 07:59:54 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-18 13:38:32 +0000 |
| commit | 7fc634935189abec1d574a9733c7093e5c9f2781 (patch) | |
| tree | 812ca27d3ab8a2b9edc12b87c730981d50858d59 /sv.c | |
| parent | ad5c2da20a409831a6acfe749626ce0396b43b3f (diff) | |
| download | perl-7fc634935189abec1d574a9733c7093e5c9f2781.tar.gz | |
More const parms
Message-ID: <20050314195954.GB7141@petdance.com>
p4raw-id: //depot/perl@24042
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -10388,10 +10388,10 @@ Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS* param) nmg->mg_obj = (SV*)re_dup((REGEXP*)mg->mg_obj, param); } else if(mg->mg_type == PERL_MAGIC_backref) { - AV *av = (AV*) mg->mg_obj; + const AV * const av = (AV*) mg->mg_obj; SV **svp; I32 i; - SvREFCNT_inc(nmg->mg_obj = (SV*)newAV()); + (void)SvREFCNT_inc(nmg->mg_obj = (SV*)newAV()); svp = AvARRAY(av); for (i = AvFILLp(av); i >= 0; i--) { if (!svp[i]) continue; |