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 /xsutils.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 'xsutils.c')
| -rw-r--r-- | xsutils.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -87,9 +87,9 @@ modify_SV_attributes(pTHXo_ SV *sv, SV **retlist, SV **attrlist, int numattrs) case 's': if (strEQ(name, "unique")) { if (negated) - GvSHARED_off(CvGV((CV*)sv)); + GvUNIQUE_off(CvGV((CV*)sv)); else - GvSHARED_on(CvGV((CV*)sv)); + GvUNIQUE_on(CvGV((CV*)sv)); continue; } break; @@ -103,7 +103,7 @@ modify_SV_attributes(pTHXo_ SV *sv, SV **retlist, SV **attrlist, int numattrs) switch (*name) { case 's': if (strEQ(name, "unique")) { - /* toke.c has already marked as GvSHARED */ + /* toke.c has already marked as GVf_UNIQUE */ continue; } } @@ -189,7 +189,7 @@ usage: #endif if (cvflags & CVf_METHOD) XPUSHs(sv_2mortal(newSVpvn("method", 6))); - if (GvSHARED(CvGV((CV*)sv))) + if (GvUNIQUE(CvGV((CV*)sv))) XPUSHs(sv_2mortal(newSVpvn("unique", 6))); break; default: |