We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3a2cf3b commit 27bfb77Copy full SHA for 27bfb77
av.c
@@ -493,9 +493,7 @@ Perl_av_make(pTHX_ SSize_t size, SV **strp)
493
494
SvGETMAGIC(*strp); /* before newSV, in case it dies */
495
AvFILLp(av)++;
496
- ary[i] = newSV_type(SVt_NULL);
497
- sv_setsv_flags(ary[i], *strp,
498
- SV_DO_COW_SVSETSV|SV_NOSTEAL);
+ ary[i] = newSVsv_flags(*strp,SV_DO_COW_SVSETSV|SV_NOSTEAL);
499
strp++;
500
}
501
/* disarm av's leak guard */
0 commit comments