diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-02-10 06:04:40 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-11 06:30:23 +0000 |
| commit | 0256094b4c2296e320dfc83acdb944c28ae745d0 (patch) | |
| tree | 69af157ea0bbb4169614851b9171468e5fdced43 /xsutils.c | |
| parent | be24517c7d6dbd51b4477cded03d9c0853e614ee (diff) | |
| download | perl-0256094b4c2296e320dfc83acdb944c28ae745d0.tar.gz | |
Re: [patch] GvSHARED
Date: Sat, 10 Feb 2001 14:04:40 -0800 (PST)
Message-ID: <Pine.LNX.4.21.0102101356000.15298-100000@mako.covalent.net>
Subject: Re: [patch] GvSHARED
From: Doug MacEachern <dougm@covalent.net>
Date: Sat, 10 Feb 2001 15:00:54 -0800 (PST)
Message-ID: <Pine.LNX.4.21.0102101453220.15298-100000@mako.covalent.net>
Subject: [patch] attributes.pm support for `shared'
From: Doug MacEachern <dougm@covalent.net>
Date: Sat, 10 Feb 2001 20:08:48 -0800 (PST)
Message-ID: <Pine.LNX.4.21.0102102004190.15298-100000@mako.covalent.net>
our() attributes were ignored, our :shared pieces missing,
allow attributes.pm to turn on shared.
p4raw-id: //depot/perl@8766
Diffstat (limited to 'xsutils.c')
| -rw-r--r-- | xsutils.c | 22 |
1 files changed, 21 insertions, 1 deletions
@@ -84,12 +84,30 @@ modify_SV_attributes(pTHXo_ SV *sv, SV **retlist, SV **attrlist, int numattrs) continue; } break; + case 's': + if (strEQ(name, "shared")) { + if (negated) + GvSHARED_off(CvGV((CV*)sv)); + else + GvSHARED_on(CvGV((CV*)sv)); + continue; + } + break; } break; } break; default: - /* nothing, yet */ + switch ((int)len) { + case 6: + switch (*name) { + case 's': + if (strEQ(name, "shared")) { + /* toke.c has already marked as GvSHARED */ + continue; + } + } + } break; } /* anything recognized had a 'continue' above */ @@ -168,6 +186,8 @@ usage: #endif if (cvflags & CVf_METHOD) XPUSHs(sv_2mortal(newSVpvn("method", 6))); + if (GvSHARED(CvGV((CV*)sv))) + XPUSHs(sv_2mortal(newSVpvn("shared", 6))); break; default: break; |