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 /pp_ctl.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 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2266,9 +2266,9 @@ PP(pp_goto) retry: if (!CvROOT(cv) && !CvXSUB(cv)) { - GV *gv = CvGV(cv); - GV *autogv; + const GV * const gv = CvGV(cv); if (gv) { + GV *autogv; SV *tmpstr; /* autoloaded stub? */ if (cv != GvCV(gv) && (cv = GvCV(gv))) @@ -2285,7 +2285,7 @@ PP(pp_goto) } /* First do some returnish stuff. */ - SvREFCNT_inc(cv); /* avoid premature free during unwind */ + (void)SvREFCNT_inc(cv); /* avoid premature free during unwind */ FREETMPS; cxix = dopoptosub(cxstack_ix); if (cxix < 0) |