X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=av.c;h=456a21e02daf911499f038769805ade648a3ca15;hb=dc507217b3331807446df6e7f16977ee2fdc418e;hp=4872f94efae870602fdaaa1d8371100d4c822669;hpb=516a5887ee93ac51c15492c01bb2e52bafd5bfaf;p=p5sagit%2Fp5-mst-13.2.git diff --git a/av.c b/av.c index 4872f94..456a21e 100644 --- a/av.c +++ b/av.c @@ -130,7 +130,9 @@ Perl_av_extend(pTHX_ AV *av, I32 key) Safefree(AvALLOC(av)); AvALLOC(av) = ary; #endif +#if defined(MYMALLOC) && !defined(LEAKTEST) resized: +#endif ary = AvALLOC(av) + AvMAX(av) + 1; tmp = newmax - AvMAX(av); if (av == PL_curstack) { /* Oops, grew stack (via av_store()?) */