From 592f596992fbcfa7e7c135f9212d2ec2def553a6 Mon Sep 17 00:00:00 2001 From: "Michael G. Schwern" Date: Fri, 1 Jun 2001 12:28:14 +0100 Subject: [PATCH] Re: [PATCH xsutils.c] Quieting warnings Message-ID: <20010601112814.B29027@blackrider.blackstar.co.uk> p4raw-id: //depot/perl@10371 --- lib/attributes.pm | 2 +- xsutils.c | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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); -- 2.7.4