diff options
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -10772,10 +10772,15 @@ Perl_sv_bless(pTHX_ SV *const sv, HV *const stash) SvGETMAGIC(sv); if (!SvROK(sv)) Perl_croak(aTHX_ "Can't bless non-reference value"); + if (HvSTASH_IS_CLASS(stash)) + Perl_croak(aTHX_ "Attempt to bless into a class"); + tmpRef = SvRV(sv); if (SvFLAGS(tmpRef) & (SVs_OBJECT|SVf_READONLY|SVf_PROTECT)) { if (SvREADONLY(tmpRef)) Perl_croak_no_modify(); + if (SvTYPE(tmpRef) == SVt_PVOBJ) + Perl_croak(aTHX_ "Can't bless an object reference"); if (SvOBJECT(tmpRef)) { oldstash = SvSTASH(tmpRef); } |