summaryrefslogtreecommitdiff
path: root/av.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2006-06-05 19:25:01 -0500
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-06-06 11:27:19 +0000
commit35da51f7f2e09d38719c2d96d9f3eacd4f9f796a (patch)
tree15de30780af62b466629ebae2a61b3cb79e49ebf /av.c
parentc35e046af5b841e9249aec6438e14aabc52c284a (diff)
downloadperl-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.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/av.c b/av.c
index 4692e6b6af..3dfdf9a6ed 100644
--- a/av.c
+++ b/av.c
@@ -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;
}