diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-06-26 18:18:40 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-26 13:31:57 +0000 |
| commit | c8a3bf85b4f54d1a649a56a937fd48a38f8982fe (patch) | |
| tree | 3a728ff5c9ab41f92c2243c12c17fc99fab0963e /xsutils.c | |
| parent | e14f2162147f3d6538376ec4348c4ead50ca2bae (diff) | |
| download | perl-c8a3bf85b4f54d1a649a56a937fd48a38f8982fe.tar.gz | |
[PATH] shared -> unique;
Message-ID: <002001c0fe4a$e623ba30$21000a0a@vogw2kdev>
Because "shared" isn't: it's read-only.
p4raw-id: //depot/perl@10959
Diffstat (limited to 'xsutils.c')
| -rw-r--r-- | xsutils.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -85,7 +85,7 @@ modify_SV_attributes(pTHXo_ SV *sv, SV **retlist, SV **attrlist, int numattrs) } break; case 's': - if (strEQ(name, "shared")) { + if (strEQ(name, "unique")) { if (negated) GvSHARED_off(CvGV((CV*)sv)); else @@ -102,7 +102,7 @@ modify_SV_attributes(pTHXo_ SV *sv, SV **retlist, SV **attrlist, int numattrs) case 6: switch (*name) { case 's': - if (strEQ(name, "shared")) { + if (strEQ(name, "unique")) { /* toke.c has already marked as GvSHARED */ continue; } @@ -190,7 +190,7 @@ usage: if (cvflags & CVf_METHOD) XPUSHs(sv_2mortal(newSVpvn("method", 6))); if (GvSHARED(CvGV((CV*)sv))) - XPUSHs(sv_2mortal(newSVpvn("shared", 6))); + XPUSHs(sv_2mortal(newSVpvn("unique", 6))); break; default: break; |