diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2001-12-08 19:09:23 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-09 15:00:50 +0000 |
| commit | 95f0a2f1ffc68ef908768ec5d39e4102afd28c1e (patch) | |
| tree | 6d6c7cf9004e0c6dae9629f09bab6144eeec3347 /xsutils.c | |
| parent | 5ec554fbe2d22a7213ac94890d84ed925ba9af4b (diff) | |
| download | perl-95f0a2f1ffc68ef908768ec5d39e4102afd28c1e.tar.gz | |
Re: attributes are broken
Message-Id: <200112090509.AAA02053@Orb.Nashua.NH.US>
p4raw-id: //depot/perl@13543
Diffstat (limited to 'xsutils.c')
| -rw-r--r-- | xsutils.c | 24 |
1 files changed, 17 insertions, 7 deletions
@@ -84,8 +84,8 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) continue; } break; - case 's': - if (strEQ(name, "unique")) { + case 'u': + if (strEQ(name, "unique")) { if (negated) GvUNIQUE_off(CvGV((CV*)sv)); else @@ -99,11 +99,17 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) break; default: switch ((int)len) { - case 6: + case 6: switch (*name) { - case 's': - if (strEQ(name, "unique")) { - /* toke.c has already marked as GVf_UNIQUE */ + case 'u': + if (strEQ(name, "unique")) { + if (SvTYPE(sv) == SVt_PVGV) { + if (negated) + GvUNIQUE_off(sv); + else + GvUNIQUE_on(sv); + } + /* Hope this came from toke.c if not a GV. */ continue; } } @@ -190,7 +196,11 @@ usage: if (cvflags & CVf_METHOD) XPUSHs(sv_2mortal(newSVpvn("method", 6))); if (GvUNIQUE(CvGV((CV*)sv))) - XPUSHs(sv_2mortal(newSVpvn("unique", 6))); + XPUSHs(sv_2mortal(newSVpvn("unique", 6))); + break; + case SVt_PVGV: + if (GvUNIQUE(sv)) + XPUSHs(sv_2mortal(newSVpvn("unique", 6))); break; default: break; |