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 dfaf1f0 commit dcab4ddCopy full SHA for dcab4dd
pp.c
@@ -6421,10 +6421,12 @@ PP(pp_push)
6421
PL_delaymagic = DM_DELAY;
6422
for (++MARK; MARK <= PL_stack_sp; MARK++) {
6423
SV *sv;
6424
- if (*MARK) SvGETMAGIC(*MARK);
6425
- sv = newSV_type(SVt_NULL);
6426
- if (*MARK)
6427
- sv_setsv_nomg(sv, *MARK);
+ if (*MARK) {
+ SvGETMAGIC(*MARK);
+ sv = newSVsv_flags(*MARK, SV_DO_COW_SVSETSV);
+ } else {
6428
+ sv = newSV_type(SVt_NULL);
6429
+ }
6430
av_store(ary, AvFILLp(ary)+1, sv);
6431
}
6432
if (PL_delaymagic & DM_ARRAY_ISA)
0 commit comments