Oops, missed an sv_force_normal()

p4raw-id: //depot/perl@25877

diff --git a/mg.c b/mg.c
index 06ec4af..ec4dcd3 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -2797,7 +2797,7 @@ S_restore_magic(pTHX_ const void *p)
        /* While magic was saved (and off) sv_setsv may well have seen
           this SV as a prime candidate for COW.  */
        if (SvIsCOW(sv))
-           sv_force_normal(sv);
+           sv_force_normal_flags(sv, 0);
 #endif
 
        if (mgs->mgs_flags)