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

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index c92c89c51f..912f51756b 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
             ) {