diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2000-08-08 04:02:03 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-08 13:59:28 +0000 |
| commit | 016a42f39635e4e96555aee41f820c77d820b582 (patch) | |
| tree | 3cfac07e13ee167607d71d30768c88c315decf5a /pp.c | |
| parent | 5507c167c2091faf0e9f5cec15afc3162980c610 (diff) | |
| download | perl-016a42f39635e4e96555aee41f820c77d820b582.tar.gz | |
Augment #6539 a bit: don't croak if there's magic in the air.
Subject: Re: [PATCH bleadperl-6530] bless, REF, and bless(REF, REF)
Message-Id: <200008080202.DAA09147@crypt.compulink.co.uk>
p4raw-id: //depot/perl@6545
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -563,9 +563,7 @@ PP(pp_bless) STRLEN len; char *ptr; - if (ssv && SvGMAGICAL(ssv)) - mg_get(ssv); - if (SvROK(ssv)) + if (ssv && !SvGMAGICAL(ssv) && !SvAMAGIC(ssv) && SvROK(ssv)) Perl_croak(aTHX_ "Attempt to bless into a reference"); ptr = SvPV(ssv,len); if (ckWARN(WARN_MISC) && len == 0) |