diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2006-08-23 03:07:05 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-24 12:23:15 +0000 |
| commit | d5adc3a12662acc8bc057d4ab07a88843ba10e31 (patch) | |
| tree | 398a4e527190bfad96bbdc8c6a039f3f063686a7 | |
| parent | 9f9736a1d14b921862a1b77740b0ec694b25aac9 (diff) | |
| download | perl-d5adc3a12662acc8bc057d4ab07a88843ba10e31.tar.gz | |
Don't promulgate Perl attributes
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <20060823100705.fb30e530d17747c2b054d625b8945d88.87c0ee9326.wbe@email.secureserver.net>
p4raw-id: //depot/perl@28753
| -rw-r--r-- | lib/attributes.pm | 4 | ||||
| -rw-r--r-- | xsutils.c | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/attributes.pm b/lib/attributes.pm index 714cb26721..544e2f5f7a 100644 --- a/lib/attributes.pm +++ b/lib/attributes.pm @@ -1,6 +1,6 @@ package attributes; -our $VERSION = 0.06; +our $VERSION = 0.07; @EXPORT_OK = qw(get reftype); @EXPORT = (); @@ -43,7 +43,7 @@ sub import { my @badattrs; if ($pkgmeth) { my @pkgattrs = _modify_attrs($svref, @attrs); - @badattrs = $pkgmeth->($home_stash, $svref, @attrs); + @badattrs = $pkgmeth->($home_stash, $svref, @pkgattrs); if (!@badattrs && @pkgattrs) { return unless _warn_reserved; @pkgattrs = grep { m/\A[[:lower:]]+(?:\z|\()/ } @pkgattrs; @@ -85,8 +85,8 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) #endif case 6: switch (name[3]) { - case 'l': #ifdef CVf_LVALUE + case 'l': if (memEQ(name, "lvalue", 6)) { if (negated) CvFLAGS((CV*)sv) &= ~CVf_LVALUE; @@ -95,8 +95,8 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) continue; } break; +#endif case 'k': -#endif /* defined CVf_LVALUE */ if (memEQ(name, "locked", 6)) { if (negated) CvFLAGS((CV*)sv) &= ~CVf_LOCKED; |