diff options
author | Andy Lester <andy@petdance.com> | 2006-06-05 19:25:01 -0500 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-06 11:27:19 +0000 |
commit | 35da51f7f2e09d38719c2d96d9f3eacd4f9f796a (patch) | |
tree | 15de30780af62b466629ebae2a61b3cb79e49ebf /av.c | |
parent | c35e046af5b841e9249aec6438e14aabc52c284a (diff) | |
download | perl-35da51f7f2e09d38719c2d96d9f3eacd4f9f796a.tar.gz |
more accumulated cleanups
Message-ID: <20060606052501.GA30469@petdance.com>
p4raw-id: //depot/perl@28358
Diffstat (limited to 'av.c')
-rw-r--r-- | av.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -395,8 +395,7 @@ Perl_av_make(pTHX_ register I32 size, register SV **strp) Newx(ary,size,SV*); AvALLOC(av) = ary; SvPV_set(av, (char*)ary); - AvFILLp(av) = size - 1; - AvMAX(av) = size - 1; + AvFILLp(av) = AvMAX(av) = size - 1; for (i = 0; i < size; i++) { assert (*strp); ary[i] = newSV(0); @@ -482,7 +481,7 @@ Perl_av_undef(pTHX_ register AV *av) SvREFCNT_dec(AvARRAY(av)[--key]); } Safefree(AvALLOC(av)); - AvALLOC(av) = 0; + AvALLOC(av) = NULL; SvPV_set(av, NULL); AvMAX(av) = AvFILLp(av) = -1; } |