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 (file)
--- 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 (file)
--- 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));