diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-06-27 09:21:27 +0530 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 13:25:40 +0000 |
| commit | 7fb3795116dd07b7f236652a03ac53946b1af7cf (patch) | |
| tree | ddf0f84c3ced4f193c2e9b22e9372710806cd305 /pp_sys.c | |
| parent | fd90a50dd9dd98650b54e33f8b9a3e77bcbf54b8 (diff) | |
| download | perl-7fb3795116dd07b7f236652a03ac53946b1af7cf.tar.gz | |
Re: [PATH] shared -> unique;
Message-ID: <20010627035127.A17623@lustre.lustre.dyn.wiw.org>
p4raw-id: //depot/perl@11089
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -758,9 +758,9 @@ 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"); +#ifdef GV_UNIQUE_CHECK + if (GvUNIQUE((GV*)varsv)) { + Perl_croak(aTHX_ "Attempt to tie unique GV"); } #endif methname = "TIEHANDLE"; |