diff options
| author | Andy Lester <andy@petdance.com> | 2006-07-03 12:42:50 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-04 09:42:12 +0000 |
| commit | bbd11bfc71646921e3be8023a3989fb2a9921d80 (patch) | |
| tree | 6a9b4358313572b71779b47db1d1fca262a44b7e /toke.c | |
| parent | 4dcb9e53db5ab3b8d2b2f8eaba341cb2c0c5d2b8 (diff) | |
| download | perl-bbd11bfc71646921e3be8023a3989fb2a9921d80.tar.gz | |
toke.c consting and localizing
Message-ID: <20060703224250.GA14481@petdance.com>
p4raw-id: //depot/perl@28476
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -6697,7 +6697,7 @@ S_pending_ident(pTHX) { dVAR; register char *d; - register PADOFFSET tmp = 0; + PADOFFSET tmp = 0; /* pit holds the identifier we read and pending_ident is reset */ char pit = PL_pending_ident; PL_pending_ident = 0; @@ -11186,12 +11186,11 @@ S_scan_inputsymbol(pTHX_ char *start) filehandle */ if (*d == '$') { - PADOFFSET tmp; - /* try to find it in the pad for this block, otherwise find add symbol table ops */ - if ((tmp = pad_findmy(d)) != NOT_IN_PAD) { + const PADOFFSET tmp = pad_findmy(d); + if (tmp != NOT_IN_PAD) { if (PAD_COMPNAME_FLAGS_isOUR(tmp)) { HV * const stash = PAD_COMPNAME_OURSTASH(tmp); HEK * const stashname = HvNAME_HEK(stash); |