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 /lib/attributes.pm | |
| 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
Diffstat (limited to 'lib/attributes.pm')
| -rw-r--r-- | lib/attributes.pm | 4 |
1 files changed, 2 insertions, 2 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; |