X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=av.c;h=3dfdf9a6edfcbac64d32765b9b677831a6836198;hb=e573f90328e9db84c5405db01c52908bfac9286d;hp=4692e6b6af29eec50a2c807ad7fe06748082faf6;hpb=e2d306cb6f7ec064f0604b24211e7b2cd0705b39;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/av.c b/av.c
index 4692e6b..3dfdf9a 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;
 }