diff options
| -rw-r--r-- | lib/attributes.pm | 2 | ||||
| -rw-r--r-- | xsutils.c | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/attributes.pm b/lib/attributes.pm index 3c8923f6da..28f7eee68d 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 { @@ -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); |