diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-02-10 02:57:12 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-10 21:25:07 +0000 |
| commit | 5bd07a3d26012a115fab327912ac8788755e1251 (patch) | |
| tree | 93771955569aee6376d8b39290ad18dd10204fe4 /pp_sys.c | |
| parent | c049f95368b5429d658957f04652ad3e5f2d09a0 (diff) | |
| download | perl-5bd07a3d26012a115fab327912ac8788755e1251.tar.gz | |
[patch] GvSHARED
Message-ID: <Pine.LNX.4.21.0102101047320.15298-100000@mako.covalent.net>
p4raw-id: //depot/perl@8760
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -757,6 +757,11 @@ PP(pp_tie) methname = "TIEARRAY"; break; case SVt_PVGV: +#ifdef GV_SHARED_CHECK + if (GvSHARED((GV*)varsv)) { + Perl_croak(aTHX_ "Attempt to tie shared GV"); + } +#endif methname = "TIEHANDLE"; how = 'q'; break; |