diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-06 05:11:07 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-07 17:03:16 +0000 |
| commit | 66a1b24beb76ea873ad4caa57ee3ab9df945afbf (patch) | |
| tree | e59a6ec85d3a4225104f0176749497fb46256961 /pad.c | |
| parent | f681a178ed5ab9eaae71b97c6eea3744c0304d67 (diff) | |
| download | perl-66a1b24beb76ea873ad4caa57ee3ab9df945afbf.tar.gz | |
Random cleanups #47
Message-ID: <20050606151107.GC7022@petdance.com>
p4raw-id: //depot/perl@24735
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1524,8 +1524,8 @@ void Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv, CV *new_cv) { I32 ix; - AV *comppad_name = (AV*)AvARRAY(padlist)[0]; - AV *comppad = (AV*)AvARRAY(padlist)[1]; + AV * const comppad_name = (AV*)AvARRAY(padlist)[0]; + AV * const comppad = (AV*)AvARRAY(padlist)[1]; SV **namepad = AvARRAY(comppad_name); SV **curpad = AvARRAY(comppad); for (ix = AvFILLp(comppad_name); ix > 0; ix--) { |