Skip to content

Commit 27bfb77

Browse files
committed
Perl_av_make - use newSVsv_flags rather than doing own thing
1 parent 3a2cf3b commit 27bfb77

File tree

1 file changed

+1
-3
lines changed

1 file changed

+1
-3
lines changed

av.c

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -493,9 +493,7 @@ Perl_av_make(pTHX_ SSize_t size, SV **strp)
493493

494494
SvGETMAGIC(*strp); /* before newSV, in case it dies */
495495
AvFILLp(av)++;
496-
ary[i] = newSV_type(SVt_NULL);
497-
sv_setsv_flags(ary[i], *strp,
498-
SV_DO_COW_SVSETSV|SV_NOSTEAL);
496+
ary[i] = newSVsv_flags(*strp,SV_DO_COW_SVSETSV|SV_NOSTEAL);
499497
strp++;
500498
}
501499
/* disarm av's leak guard */

0 commit comments

Comments
 (0)