diff options
| author | Andy Lester <andy@petdance.com> | 2005-07-10 09:36:35 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-07-10 19:19:56 +0000 |
| commit | 890ce7af62ab97fd07b5b49562f13e94286469fb (patch) | |
| tree | 1c0a0d9c2b7328ef80d147d63dae1ef46a612d92 /toke.c | |
| parent | 108bb1ada68a74e70f8cfe3683513fea5b30f778 (diff) | |
| download | perl-890ce7af62ab97fd07b5b49562f13e94286469fb.tar.gz | |
Making my way thru embed.fnc
Message-ID: <20050710193635.GC8081@petdance.com>
p4raw-id: //depot/perl@25107
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -8950,7 +8950,7 @@ S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, SV *sv, SV *pv, const char *type) { dVAR; dSP; - HV *table = GvHV(PL_hintgv); /* ^H */ + HV * const table = GvHV(PL_hintgv); /* ^H */ SV *res; SV **cvp; SV *cv, *typesv; @@ -9047,7 +9047,7 @@ STATIC char * S_scan_word(pTHX_ register char *s, char *dest, STRLEN destlen, int allow_package, STRLEN *slp) { register char *d = dest; - register char *e = d + destlen - 3; /* two-character token, ending NUL */ + register char * const e = d + destlen - 3; /* two-character token, ending NUL */ for (;;) { if (d >= e) Perl_croak(aTHX_ ident_too_long); |