Re: [PATCH xsutils.c] Quieting warnings

Message-ID: <20010601112814.B29027@blackrider.blackstar.co.uk>

p4raw-id: //depot/perl@10371

diff --git a/lib/attributes.pm b/lib/attributes.pm
index 3c8923f..28f7eee 100644 (file)
--- a/lib/attributes.pm
+++ b/lib/attributes.pm
@@ -27,7 +27,7 @@ sub carp {
 #
 # The extra trips through newATTRSUB in the interpreter wipe out any savings
 # from avoiding the BEGIN block.  Just do the bootstrap now.
-BEGIN { bootstrap }
+BEGIN { bootstrap attributes }
 
 sub import {
     @_ > 2 && ref $_[2] or do {

diff --git a/xsutils.c b/xsutils.c
index d15de65..1a95191 100644 (file)
--- a/xsutils.c
+++ b/xsutils.c
@@ -127,8 +127,8 @@ XS(XS_attributes_bootstrap)
     dXSARGS;
     char *file = __FILE__;
 
-    if( items > 0 )
-        Perl_croak(aTHX_ "Usage: 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);