summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorSteve Peters <steve@fisharerojo.org>2005-10-29 14:33:30 +0000
committerSteve Peters <steve@fisharerojo.org>2005-10-29 14:33:30 +0000
commite424a81e12752daec8332495577eb8122f350b31 (patch)
tree53bbd3b6b9dd9279a2216f4d5d3aaafd211e1909 /mg.c
parentaae9cea0a2be05abb857e6b2b32773d3d5fae6d8 (diff)
downloadperl-e424a81e12752daec8332495577eb8122f350b31.tar.gz
Oops, missed an sv_force_normal()
p4raw-id: //depot/perl@25877
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/mg.c b/mg.c
index 06ec4afaa5..ec4dcd36ac 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)