diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-16 05:13:53 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-16 16:56:43 +0000 |
| commit | a3b680e6b77dd7f88268fad8b1dbdf4f641dd836 (patch) | |
| tree | 5b6dc5a60baf7a56b2db73bf0faffe0c3c44963c /util.c | |
| parent | 02a44301bf4932369de0c75ad20a9c1256a455cd (diff) | |
| download | perl-a3b680e6b77dd7f88268fad8b1dbdf4f641dd836.tar.gz | |
consting-eleventy.patch: More consts, plus actual bug fix
Message-ID: <20050516151353.GA25387@petdance.com>
p4raw-id: //depot/perl@24489
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1361,10 +1361,10 @@ Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args) { dVAR; if (ckDEAD(err)) { - SV *msv = vmess(pat, args); + SV * const msv = vmess(pat, args); STRLEN msglen; const char *message = SvPV(msv, msglen); - I32 utf8 = SvUTF8(msv); + const I32 utf8 = SvUTF8(msv); if (PL_diehook) { assert(message); @@ -3969,7 +3969,7 @@ Perl_new_version(pTHX_ SV *ver) AvREAL_on((AV*)sv); for ( key = 0; key <= av_len(av); key++ ) { - I32 rev = SvIV(*av_fetch(av, key, FALSE)); + const I32 rev = SvIV(*av_fetch(av, key, FALSE)); av_push((AV *)sv, newSViv(rev)); } return rv; |