diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-03-28 23:00:29 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-03-28 23:00:29 +0000 |
commit | 4b1c7d9edb7b995fb0cbc0224c3f2090bfa8e247 (patch) | |
tree | b7e613e57e3cb13caebe0ed69bc166529301002f /sv.c | |
parent | 7536ed57886a47a6a6af672eef2ce348b3b4a684 (diff) | |
download | perl-4b1c7d9edb7b995fb0cbc0224c3f2090bfa8e247.tar.gz |
Don't COW PVFMs, as the IVX is now used for FmLINES. (since change 34134)
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 ) { |