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 86121c4 commit ca2224bCopy full SHA for ca2224b
pp.c
@@ -6419,10 +6419,11 @@ PP(pp_push)
6419
PL_delaymagic = DM_DELAY;
6420
for (++MARK; MARK <= PL_stack_sp; MARK++) {
6421
SV *sv;
6422
- if (*MARK) SvGETMAGIC(*MARK);
6423
- sv = newSV_type(SVt_NULL);
6424
- if (*MARK)
6425
- sv_setsv_nomg(sv, *MARK);
+ if (*MARK) {
+ sv = newSVsv_flags(*MARK, SV_DO_COW_SVSETSV|SV_GMAGIC);
+ } else
+ sv = newSV_type(SVt_NULL);
6426
+
6427
av_store(ary, AvFILLp(ary)+1, sv);
6428
}
6429
if (PL_delaymagic & DM_ARRAY_ISA)
0 commit comments