WIP keep immortals in arrays asis

i.e. -e"print [!0]->[0]" See GH #413 Does not work ye
perl11 · May 17, 2020 · 93246ab · 93246ab
1 parent 73cbb17
commit 93246ab
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/sv.c b/sv.c
@@ -4262,6 +4262,16 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, SV* sstr, const I32 flags)
 
     if (UNLIKELY( !sstr ))
 	sstr = UNDEF;
+    /* keep most immortals asis. cperl only. Ony any other flag then here do copy it though. */
+    if (SvIMMORTAL(sstr) && !(flags & ~(SV_GMAGIC|
+                                        SV_CONST_RETURN|
+                                        SV_UTF8_NO_ENCODING|
+                                        SV_DO_COW_SVSETSV|
+                                        SV_NOSTEAL)))
+    {
+        dstr = sstr;
+        return;
+    }
 
     stype = SvTYPE(sstr);
     dtype = SvTYPE(dstr);