diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2002-05-07 11:40:44 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-08 22:39:11 +0000 |
| commit | f0faabb7a112c0469c217fed92a3d55cbe5f1735 (patch) | |
| tree | 87203cd085590ee5c1fc3167d382d38213430ee7 /sv.c | |
| parent | 4cab98c0e4cbb2d394d0460eb0bee09f843632e8 (diff) | |
| download | perl-f0faabb7a112c0469c217fed92a3d55cbe5f1735.tar.gz | |
[PATCH] Re: perl@16433
Date: Tue, 07 May 2002 18:40:44 -0700
Message-ID: <cII28gzkgaOS092yn@efn.org>
Subject: Re: [PATCH] Re: perl@16433
From: sthoenna@efn.org (Yitzchak Scott-Thoennes)
Date: Wed, 08 May 2002 10:16:42 -0700
Message-ID: <61V28gzkg+jG092yn@efn.org>
p4raw-id: //depot/perl@16501
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -4466,7 +4466,9 @@ Perl_sv_magicext(pTHX_ SV* sv, SV* obj, int how, MGVTBL *vtable, (SvTYPE(obj) == SVt_PVGV && (GvSV(obj) == sv || GvHV(obj) == (HV*)sv || GvAV(obj) == (AV*)sv || GvCV(obj) == (CV*)sv || GvIOp(obj) == (IO*)sv || - GvFORM(obj) == (CV*)sv))) + GvFORM(obj) == (CV*)sv)) || + (how == PERL_MAGIC_tiedscalar && + SvROK(obj) && (SvRV(obj) == sv || GvIO(SvRV(obj)) == (IO*)sv))) { mg->mg_obj = obj; } |