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 885b32c commit ab02ccaCopy full SHA for ab02cca
pp.c
@@ -6421,10 +6421,11 @@ 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) {
+ sv = newSVsv_flags(*MARK, SV_DO_COW_SVSETSV|SV_GMAGIC);
+ } else
+ sv = newSV_type(SVt_NULL);
6428
+
6429
av_store(ary, AvFILLp(ary)+1, sv);
6430
}
6431
if (PL_delaymagic & DM_ARRAY_ISA)
0 commit comments