From 04fae10148c49c60f1578c0a2cb6ab08cd231927 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 27 Oct 2012 23:53:46 -0700 Subject: sv.c: Allow blessed cows There is no reason kine should not receive blessings, too. --- sv.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'sv.c') diff --git a/sv.c b/sv.c index 660642fd7e..7f40cc79bf 100644 --- a/sv.c +++ b/sv.c @@ -9446,9 +9446,7 @@ Perl_sv_bless(pTHX_ SV *const sv, HV *const stash) Perl_croak(aTHX_ "Can't bless non-reference value"); tmpRef = SvRV(sv); if (SvFLAGS(tmpRef) & (SVs_OBJECT|SVf_READONLY)) { - if (SvIsCOW(tmpRef)) - sv_force_normal_flags(tmpRef, 0); - if (SvREADONLY(tmpRef)) + if (SvREADONLY(tmpRef) && !SvIsCOW(tmpRef)) Perl_croak_no_modify(aTHX); if (SvOBJECT(tmpRef)) { if (SvTYPE(tmpRef) != SVt_PVIO) -- cgit v1.2.1