From 890ce7af62ab97fd07b5b49562f13e94286469fb Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Sun, 10 Jul 2005 09:36:35 -0500 Subject: Making my way thru embed.fnc Message-ID: <20050710193635.GC8081@petdance.com> p4raw-id: //depot/perl@25107 --- toke.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index 9438a71fad..780855e049 100644 --- a/toke.c +++ b/toke.c @@ -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); -- cgit v1.2.1