diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-06-24 14:16:18 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-24 17:32:37 +0000 |
| commit | 23bb1b96cfae0dc23679ea6dd44cf0deadeb9fbf (patch) | |
| tree | f6af1255524f2e041fcf01d227787c45eaedcfe1 /sv.c | |
| parent | 979d099a6fff3899afa990942da5a3db40e87a12 (diff) | |
| download | perl-23bb1b96cfae0dc23679ea6dd44cf0deadeb9fbf.tar.gz | |
Re: [perl #22719] ISA cache problem with blessed stash objects
Message-ID: <20030624121618.GC22675@fdgroup.com>
p4raw-id: //depot/perl@19849
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3673,7 +3673,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags) if (dtype < SVt_RV) sv_upgrade(dstr, SVt_RV); else if (dtype == SVt_PVGV && - SvTYPE(SvRV(sstr)) == SVt_PVGV) { + SvROK(sstr) && SvTYPE(SvRV(sstr)) == SVt_PVGV) { sstr = SvRV(sstr); if (sstr == dstr) { if (GvIMPORTED(dstr) != GVf_IMPORTED |