From: Steve Peters <steve@fisharerojo.org>
Date: Sat, 29 Oct 2005 14:14:25 +0000 (+0000)
Subject: Change to use sv_force_normal_flags() directly, rather than calling
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a265e59ce486ba81d4c53a5dd1e167baf7e65e7;p=p5sagit%2Fp5-mst-13.2.git

Change to use sv_force_normal_flags() directly, rather than calling
sv_force_normal() to call sv_force_normal_flags().

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

diff --git a/NetWare/sv_nw.c b/NetWare/sv_nw.c
index 0051363..b449dda 100644
--- a/NetWare/sv_nw.c
+++ b/NetWare/sv_nw.c
@@ -4,7 +4,7 @@
 #include <regcomp.h>
 
 #define FCALL *f
-#define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal(sv)
+#define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal_flags(sv, 0)
 
 
 
diff --git a/mg.c b/mg.c
index 5754732..06ec4af 100644
--- a/mg.c
+++ b/mg.c
@@ -85,7 +85,7 @@ S_save_magic(pTHX_ I32 mgs_ix, SV *sv)
 #ifdef PERL_OLD_COPY_ON_WRITE
     /* Turning READONLY off for a copy-on-write scalar is a bad idea.  */
     if (SvIsCOW(sv))
-      sv_force_normal(sv);
+      sv_force_normal_flags(sv, 0);
 #endif
 
     SAVEDESTRUCTOR_X(S_restore_magic, INT2PTR(void*, (IV)mgs_ix));