This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Oops, missed an sv_force_normal()
authorSteve Peters <steve@fisharerojo.org>
Sat, 29 Oct 2005 14:33:30 +0000 (14:33 +0000)
committerSteve Peters <steve@fisharerojo.org>
Sat, 29 Oct 2005 14:33:30 +0000 (14:33 +0000)
p4raw-id: //depot/perl@25877

mg.c

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)