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 /doop.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 'doop.c')
| -rw-r--r-- | doop.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1017,7 +1017,7 @@ Perl_do_chomp(pTHX_ register SV *sv) count = 0; if (SvTYPE(sv) == SVt_PVAV) { register I32 i; - AV* av = (AV*)sv; + AV* const av = (AV*)sv; const I32 max = AvFILL(av); for (i = 0; i <= max; i++) { @@ -1028,7 +1028,7 @@ Perl_do_chomp(pTHX_ register SV *sv) return count; } else if (SvTYPE(sv) == SVt_PVHV) { - HV* hv = (HV*)sv; + HV* const hv = (HV*)sv; HE* entry; (void)hv_iterinit(hv); while ((entry = hv_iternext(hv))) @@ -1390,7 +1390,7 @@ Perl_do_kv(pTHX) while ((entry = hv_iternext(keys))) { SPAGAIN; if (dokeys) { - SV* sv = hv_iterkeysv(entry); + SV* const sv = hv_iterkeysv(entry); XPUSHs(sv); /* won't clobber stack_sp */ } if (dovalues) { |