Perl_clear_defarray - AvREIFY_only() applied, array does not actually…

… need Zeroing
Perl · May 22, 2021 · 4391e33 · 4391e33
1 parent 7faeda8
commit 4391e33
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/pp_hot.c b/pp_hot.c
@@ -4975,6 +4975,7 @@ Perl_clear_defarray(pTHX_ AV* av, bool abandon)
     else {
         const SSize_t size = AvFILLp(av) + 1;
         /* The ternary gives consistency with av_extend() */
+        /* fill can be -1. The ternary gives consistency with av_extend() */
         AV *newav = newAV_alloc_x(size < 4 ? 4 : size);
         AvREIFY_only(newav);
         PAD_SVl(0) = MUTABLE_SV(newav);