diff options
| author | Andy Lester <andy@petdance.com> | 2005-10-30 17:44:13 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-31 10:28:32 +0000 |
| commit | c4420975666e665b3282e2edeea3304e6626be36 (patch) | |
| tree | cbbc9f25f78f38d9b5d19ecd3b88bcdef363be6e /toke.c | |
| parent | f5bd084c2c79901a2aea8ac589384123b5b7276d (diff) | |
| download | perl-c4420975666e665b3282e2edeea3304e6626be36.tar.gz | |
Etta James presents: More consting
Message-ID: <20051031054413.GA10767@petdance.com>
p4raw-id: //depot/perl@25915
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -344,7 +344,7 @@ S_tokereport(pTHX_ I32 rv) STATIC void S_printbuf(pTHX_ const char* fmt, const char* s) { - SV* tmp = newSVpvn("", 0); + SV* const tmp = newSVpvn("", 0); PerlIO_printf(Perl_debug_log, fmt, pv_display(tmp, s, strlen(s), 0, 60)); SvREFCNT_dec(tmp); } @@ -680,7 +680,7 @@ S_incline(pTHX_ char *s) *t = '\0'; if (t - s > 0) { #ifndef USE_ITHREADS - const char *cf = CopFILE(PL_curcop); + const char * const cf = CopFILE(PL_curcop); if (cf && strlen(cf) > 7 && strnEQ(cf, "(eval ", 6)) { /* must copy *{"::_<(eval N)[oldfilename:L]"} * to *{"::_<newfilename"} */ |