diff options
| author | Andy Lester <andy@petdance.com> | 2005-12-28 09:44:14 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-29 15:32:42 +0000 |
| commit | 7a5b473ebcffe303e0ee757c10a615cdeb97e2f3 (patch) | |
| tree | a07d37782c82ec117e5fc68c056b35ccc36f4705 /av.c | |
| parent | 322a00dca208ae733bf03812b33845889461ef0b (diff) | |
| download | perl-7a5b473ebcffe303e0ee757c10a615cdeb97e2f3.tar.gz | |
av.c cleanup, plus!
Message-ID: <20051228214414.GD26033@petdance.com>
p4raw-id: //depot/perl@26526
Diffstat (limited to 'av.c')
| -rw-r--r-- | av.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -62,9 +62,11 @@ extended. void Perl_av_extend(pTHX_ AV *av, I32 key) { + MAGIC *mg; + assert(av); - MAGIC * const mg = SvTIED_mg((SV*)av, PERL_MAGIC_tied); + mg = SvTIED_mg((SV*)av, PERL_MAGIC_tied); if (mg) { dSP; ENTER; @@ -416,8 +418,6 @@ Perl_av_clear(pTHX_ register AV *av) register I32 key; assert(av); - -/* XXX Should av_clear really be NN? */ #ifdef DEBUGGING if (SvREFCNT(av) == 0 && ckWARN_d(WARN_DEBUGGING)) { Perl_warner(aTHX_ packWARN(WARN_DEBUGGING), "Attempt to clear deleted array"); |