diff --git a/pp_hot.c b/pp_hot.c index af3c387bb3af..7e0872023501 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -4975,7 +4975,7 @@ Perl_clear_defarray(pTHX_ AV* av, bool abandon) else { const SSize_t size = AvFILLp(av) + 1; /* fill can be -1. The ternary gives consistency with av_extend() */ - AV *newav = newAV_alloc_xz(size < 4 ? 4 : size); + AV *newav = newAV_alloc_x(size < 4 ? 4 : size); AvREIFY_only(newav); PAD_SVl(0) = MUTABLE_SV(newav); SvREFCNT_dec_NN(av);