From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 28 Mar 2009 23:00:29 +0000 (+0000)
Subject: Don't COW PVFMs, as the IVX is now used for FmLINES. (since change 34134)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4b1c7d9edb7b995fb0cbc0224c3f2090bfa8e247;p=p5sagit%2Fp5-mst-13.2.git

Don't COW PVFMs, as the IVX is now used for FmLINES. (since change 34134)
---

diff --git a/sv.c b/sv.c
index c92c89c..912f517 100644
--- a/sv.c
+++ b/sv.c
@@ -4074,7 +4074,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV* sstr, const I32 flags)
             && ((flags & SV_COW_SHARED_HASH_KEYS)
 		? (!((sflags & CAN_COW_MASK) == CAN_COW_FLAGS
 		     && (SvFLAGS(dstr) & CAN_COW_MASK) == CAN_COW_FLAGS
-		     && SvTYPE(sstr) >= SVt_PVIV))
+		     && SvTYPE(sstr) >= SVt_PVIV && SvTYPE(sstr) != SVt_PVFM))
 		: 1)
 #endif
             ) {