diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-02 07:19:43 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-09-20 08:19:03 +0000 |
| commit | 481da01c67edce9ed8875f3ca084e61422cd12a2 (patch) | |
| tree | f5e3eb7e84269669c434fd398c5301115c3b6e11 /toke.c | |
| parent | 0612e8695661dbfefd8634295c877390668c2967 (diff) | |
| download | perl-481da01c67edce9ed8875f3ca084e61422cd12a2.tar.gz | |
Integrate:
[ 24689]
Subject: [PATCH] Random consting
Message-ID: <20050602171943.GA16553@petdance.com>
p4raw-link: @24689 on //depot/perl: b464bac0b70c4876af1296864220315edde8461d
p4raw-id: //depot/maint-5.8/perl@25508
p4raw-edited: from //depot/perl@24689 'edit in' embed.fnc sv.c
(@24682..)
p4raw-integrated: from //depot/perl@24689 'copy in' malloc.c (@24666..)
'edit in' pp_ctl.c (@24642..) pp_hot.c (@24670..) hv.c
(@24676..) 'ignore' global.sym (@24619..) proto.h (@24682..)
'merge in' embed.h (@24605..) dump.c (@24619..) perlio.c
(@24622..) doio.c (@24666..) gv.c util.c (@24669..) pp_sys.c
(@24670..) perl.c (@24674..) toke.c (@24677..)
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -9406,7 +9406,7 @@ S_scan_heredoc(pTHX_ register char *s) #ifndef PERL_STRICT_CR d = strchr(s, '\r'); if (d) { - char *olds = s; + char * const olds = s; s = d; while (s < PL_bufend) { if (*s == '\r') { @@ -9454,7 +9454,7 @@ S_scan_heredoc(pTHX_ register char *s) if (PL_lex_inwhat == OP_SUBST && PL_in_eval && !PL_rsfp) { char *bufptr = PL_sublex_info.super_bufptr; char *bufend = PL_sublex_info.super_bufend; - char *olds = s - SvCUR(herewas); + char * const olds = s - SvCUR(herewas); s = strchr(bufptr, '\n'); if (!s) s = bufend; |