diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2006-08-24 02:04:12 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-25 15:24:28 +0000 |
| commit | 20f4e2894de71066f1bcf3cb358fa8516d79a32d (patch) | |
| tree | 6dbcacece7039a5cbe4ad6c5bdfc2a72ea6db818 /xsutils.c | |
| parent | 5d0b10e0e277da4dc4a7c7f47ea4de1c0bbe695a (diff) | |
| download | perl-20f4e2894de71066f1bcf3cb358fa8516d79a32d.tar.gz | |
RE: [perl #40227] 'reserved' warning not working
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <20060824090412.fb30e530d17747c2b054d625b8945d88.e8ae12ccab.wbe@email.secureserver.net>
p4raw-id: //depot/perl@28756
Diffstat (limited to 'xsutils.c')
| -rw-r--r-- | xsutils.c | 18 |
1 files changed, 0 insertions, 18 deletions
@@ -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 |