diff options
| -rw-r--r-- | lib/attributes.pm | 6 | ||||
| -rw-r--r-- | xsutils.c | 18 |
2 files changed, 3 insertions, 21 deletions
diff --git a/lib/attributes.pm b/lib/attributes.pm index 544e2f5f7a..cddac3d8a9 100644 --- a/lib/attributes.pm +++ b/lib/attributes.pm @@ -1,6 +1,6 @@ package attributes; -our $VERSION = 0.07; +our $VERSION = 0.08; @EXPORT_OK = qw(get reftype); @EXPORT = (); @@ -23,7 +23,6 @@ sub carp { #sub _fetch_attrs ($) ; #sub _guess_stash ($) ; #sub _modify_attrs ; -#sub _warn_reserved () ; # # The extra trips through newATTRSUB in the interpreter wipe out any savings # from avoiding the BEGIN block. Just do the bootstrap now. @@ -45,7 +44,8 @@ sub import { my @pkgattrs = _modify_attrs($svref, @attrs); @badattrs = $pkgmeth->($home_stash, $svref, @pkgattrs); if (!@badattrs && @pkgattrs) { - return unless _warn_reserved; + require warnings; + return unless warnings::enabled('reserved'); @pkgattrs = grep { m/\A[[:lower:]]+(?:\z|\()/ } @pkgattrs; if (@pkgattrs) { for my $attr (@pkgattrs) { @@ -23,7 +23,6 @@ */ /* package attributes; */ -PERL_XS_EXPORT_C void XS_attributes__warn_reserved(pTHX_ CV *cv); PERL_XS_EXPORT_C void XS_attributes_reftype(pTHX_ CV *cv); PERL_XS_EXPORT_C void XS_attributes__modify_attrs(pTHX_ CV *cv); PERL_XS_EXPORT_C void XS_attributes__guess_stash(pTHX_ CV *cv); @@ -166,7 +165,6 @@ XS(XS_attributes_bootstrap) if( items > 1 ) Perl_croak(aTHX_ "Usage: attributes::bootstrap $module"); - newXSproto("attributes::_warn_reserved", XS_attributes__warn_reserved, file, ""); newXS("attributes::_modify_attrs", XS_attributes__modify_attrs, file); newXSproto("attributes::_guess_stash", XS_attributes__guess_stash, file, "$"); newXSproto("attributes::_fetch_attrs", XS_attributes__fetch_attrs, file, "$"); @@ -317,22 +315,6 @@ usage: XSRETURN(1); } -XS(XS_attributes__warn_reserved) -{ - dVAR; - dXSARGS; - - if (items != 0) { - Perl_croak(aTHX_ - "Usage: attributes::_warn_reserved ()"); - } - - EXTEND(SP,1); - ST(0) = boolSV(ckWARN(WARN_RESERVED)); - - XSRETURN(1); -} - /* * Local variables: * c-indentation-style: bsd |