From: Steve Peters <steve@fisharerojo.org>
Date: Sat, 29 Oct 2005 14:33:30 +0000 (+0000)
Subject: Oops, missed an sv_force_normal()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e424a81e12752daec8332495577eb8122f350b31;p=p5sagit%2Fp5-mst-13.2.git

Oops, missed an sv_force_normal()

p4raw-id: //depot/perl@25877
---

diff --git a/mg.c b/mg.c
index 06ec4af..ec4dcd3 100644
--- 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)