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 /pp_sys.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 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -824,9 +824,7 @@ PP(pp_tie) if (sv_isobject(sv)) { sv_unmagic(varsv, how); /* Croak if a self-tie on an aggregate is attempted. */ - if (varsv == SvRV(sv) && - (SvTYPE(sv) == SVt_PVAV || - SvTYPE(sv) == SVt_PVHV)) + if (varsv == SvRV(sv) && how == PERL_MAGIC_tied) Perl_croak(aTHX_ "Self-ties of arrays and hashes are not supported"); sv_magic(varsv, sv, how, Nullch, 0); |