From: Michael G. Schwern <schwern@pobox.com>
Date: Fri, 1 Jun 2001 11:28:14 +0000 (+0100)
Subject: Re: [PATCH xsutils.c] Quieting warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=592f596992fbcfa7e7c135f9212d2ec2def553a6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);