diff options
| author | Andy Lester <andy@petdance.com> | 2006-02-07 10:36:56 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-02-08 03:23:27 +0000 |
| commit | 294a48e93682c45d53fd3e8adb7bbdd7068cbb1d (patch) | |
| tree | a6878848cea71feb8b3cc4a56a0c3ba4ea7238b0 /pad.c | |
| parent | 78f158d1419ac33753582a090b1b89196bbfe093 (diff) | |
| download | perl-294a48e93682c45d53fd3e8adb7bbdd7068cbb1d.tar.gz | |
Handle unused args
Message-ID: <20060207223656.GA5177@petdance.com>
p4raw-id: //depot/perl@27129
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1562,6 +1562,8 @@ Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv, CV *new_cv) AV * const comppad = (AV*)AvARRAY(padlist)[1]; SV ** const namepad = AvARRAY(comppad_name); SV ** const curpad = AvARRAY(comppad); + PERL_UNUSED_ARG(old_cv); + for (ix = AvFILLp(comppad_name); ix > 0; ix--) { const SV * const namesv = namepad[ix]; if (namesv && namesv != &PL_sv_undef |